











14802 --- WRITE TEST P/N=1635072 EC=578757 PAGE 01 I4802 --- WRITE TEST P/N=1635072 EC=578757 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT SIMT SCURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY L 802 ** MAP EC HISTORY ** 002500 2588 198 DC A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
m FORGES EHEC. BES AEE TEHIOGOE HOG EE OS DECREE IT ITU IIE VQ HM Ha HH He He RR MH He A A HH HO I HH A AK 
5 x * PANU SSL SS SSS SPST ES SS SSS T TTT SS STFS STS SS SS SSS TST ST SS SSS SSS SS TSS SSCS LS SS SSS SS Sf 
6 x Hk PREREQUISITES x * 201 ** af 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) 4 
8 x NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER % 
9 x * 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TC THE OPERATOR 4% 
10 30k kk a ka da oko aio A a a I OI I IK gak akoak tak kok i aca ak ak 205 ** THE INDICATED MESSAGE (S). THERE ARE FOUR TABLES USED FOR THIS * % 
11 * * 206 =< PURPOSE THEY ARE: of 
* He Ke KK * 
14 * MODIFICATION'S MAD c OBLEMS ENCOUNTERE URING TESTING * 
15 * cas PDD SOREECE -FEORE is Reh eee mee * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * 
16 BECO CC OO CCI IO ICICI IG ICICI IO CII I II CI I Ii kok ak 2k ak ak 241 ** ENTRIES ARE AS FOLLOWES sae 
re 4 A) HSPSRES Gu QEcn "Es DEE Ba STAT FPA vt 
18 * Hk Ae CORP ED * OK * 2 
19 * RES St NOOREORES x 214 ** C AN EQUATE FOR THE STEP NUMBER *% 
20 * NONE x 215 ** vies 
31 * * 216 ** RULE INFCRMATION TABLE # X 
22 RR EO OR io oR Ck a lok ak icici kk lek kk ak kak kok ak kak kai akc ak ak ak ak ok ok 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE * & 
i 1S so Unegher°buEtNED'apea’tubucaten Betou'eno'er anave"ls i 
24 * ae a SPECIAL S U O oe ok * 7 L Is 
Se x fe, eye ees " 220 ** INDICATED WITH A X*0000' FOR THE RULE EQUATE. 7 
26 * NONE * 221 ** -* 
a7 x x 222 ** SQUES ok 
PETES SLOSS SSS LSS SSS SSS SSCS SCS SCS SS SSL SLES ES SC SCC SCS SS SCS LS Se SS Se. LSS eS 223 ** 4 RULE EQUATE X*0100!? % 
59 x * 224 : B) ADDRESS OF THE YES LEG RULE vs 
30 * OK ~ Cs Y ek * 
3 : : penton 438 “ oe A) RULE EQUATE x*0101°* cs 
32 * DATE 010CT76 DATE 15MAR77 DATE 10J3UN77 DATE 22JUL77 * * 
33 : E.C. 578468 E.C. 578714 E.C. 578625 E.C. 578757 : S55 it B} ADDRESS OF MESSAGE TO PRINT st 
35 2k kk kk CC ca ia io kai icici oko koko ick aia kak kok ak ak ak aka i ak Ba at $STOP Re me TCs eT es 
002500 37 14802 START X*2500! START ADDRESS OF ALL 'I'* TYPE PROG 
000100 38 @QUES EQU X*0100°8 EQUATED VALUE FOR MDI STATEMENT 232 vis 8} ADDRESS OF MESSAGE % % 
000101 39 @FIXT EQU X*0101' EQUATED VALUE FOR MEI STATEMENT £33 3 ac 
000102 40 @STOP EQU X*01028 EQUATED VALUE FOR MDI STATEMENT 234 $GOTO : . 4% 
000200 41 aGOTO EQU xX*0200' EQUATED VALUE FOR MDI STATEMENT 235 35 A) RULE EQUATE x20200 ees 
000201 42 OCALL EQU xX*'0201' EQUATED VALUE FOR MDI STATEMENT 236 %% B) ADDRESS OF MESSAGE + 
000300 43 @INPT EQU  x*03008 EQUATED VALUE FOR MDI STATEMENT 237 ad C) NAME OF MAP TO GO TO =e 
000400 4h @QUXX EQU  xX*O4OO0® EQUATED VALUE FOR MDI STATEMENT 238 D) ENTRY POINT WITHIN GO TO MAP TO USE ae 
000500 45 aTUXX FOU x*05008 EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE <% 
000600 46 @NVLD EQU x*'06008 EQUATED VALUE FOR MDI STATEMENT 241 ne ves 
000000 47 EQ EQU X*00008 EQUATE FCR ECUA roa eat SCALL : : << 
000004 48 NE EQU X*0O048 EQUATE FOR NOT EQUAL 243 A) KULE EQUATE X*0201 a 
000008 49 HI FOU x*00088 EQUATE FOR HIG 244 *% B) ADDRESS OF MESSAGE xx 
00000C 50 NH EQU x*QOO00C! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL * 
000010 51 LO EQU x*00108 EQUATE FOR LC 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE 2 
000014 52 NL FOU X'00148 EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE oe ok 
000010 53 LT EQU Xx*00108 EFQUATE FOR LESS THAN 248 *% % % 
Q0000C 54 LE EQU X*O00C!8 EQUATE FOR LESS THAN OR FQUAL TO 249 ** SINET * 
000008 55 GI EQU x*00088 EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE 008 * x 
000014 56 GE EQU X*00148 EQUATE FOR GREATER THAN OR EQUAL TO 251. * B) INPUT TYPE (EBCDIC OF OR HEX) sale 
000200 57 ON EQU X*02008 EQUATE FOR ON 252) C) ADDRESS OF YES LEG RULE * 
000202 58 OF EQU X*02028 EQUATE FCR OFF 253 ** D) DESTINATION LOCATLON OF INPUT DATA ' * 
000204 59 MX EQU X*O2048 EQUATE FOR MIXED 254 *% E) LENGTH OF INPUT DATA alee 
000000 60 EBC EQU X*00008 EQUATE FOR EBCDIC DATA TRANSFER 295 ** F) LOWER LIMIT OF GOOD DATA *e 
000001 61 HEX EQU Xx*00018 FOUATE FCR HEX DATA TRANSFER 296 ** G) HIGHER LIMIT OF GOOD DATA * x 
000001 62 XTRNL EQU X*00018 FOUATE FOR EXTERNAL REFERENCE 257 oe eX 
000000 63 INTRNL EQU  x*000O! EQUATE FOR INTERNAL REFERENCE 298 * SQUXX : : he 
000000 64 PARM EQU x*00008 EQUATE INDICATING PAKAMETER Zo9: 2% A) RULE EQUATE X*0400 % x 
000001 65 DA EQU xX*0001! EQUATE FCR DEVICE ADDRESS 260 BY ADDRESS OF YES TEG RULE bie 
000002 66 UA EQU x*00028 EQUATE FOR UNIT ADDRESS 261 C) TU BRANCH TO ADDRESS qINITIAL *% 
000000 67 DUMMY EQU x* 0000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECCNDARY) % Xe 
001800 69 PID EQU  ¥*=-X'QDOO® ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES x 
000232 70 PLIYPE EQU *—-X"*22CE! ADDRESS CF PROCESSOR TYPE FIELD 264 ps F) PARAMETER TO PASS TO TU ek 
00180C 71 STEENUM EQU PID+X*000C! ADDRESS OF DECIMAL STEP NUMBER 265 G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ex 
00180E 72 OFWD1 EQU PID+X*OOOE! ADDRESS CF CETION WORD ONE 266 eK 
001810 73 CEWD2 EQU PID+X#0010°8 ADDRESS OF OPTION WORD TWO 267 *%* $TUXX x 
001818 74 TUSTAIUS EQU PID+X*0018!8 ADDRESS OF TU STATUS WCRD 268 ** A) RULE EQUATE X'05008 * 
00181A 75 TUWORK EQU PID+X"O0O1A* ADDRESS OF TU WORK AREA 269 *%* B) ‘ADDRESS OF YES LEG RULE ek 
00189A 76 TUPARM1 EOQU PID+X"OQOO9A® ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS x 
00189C 77 TUPARM2 EQU PID+X*009C8 ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS x 
00189E 78 TUPAKM3 EQU PID+X*OO9E* ADDRESS OF PARM 3 POINTER 212°%% E) LENGTH OF COMPARED RESULTS 7 
0018A0 79 TUPARM4 EOQU PID*¢X*OOAO® ADDRESS OF FARM 4 BOINTER 213 %*% F) MASK FIELD FOR CCMEARE % 
0018A2 80 TUPARMS EQU PID+X*QOA2* ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES 7 
0018 A4 81 TUPARM6 EQU PID+X"OOA4? ADDRESS OF PARM 6 POINTER 215.4% H) PARAMETER TO PASS TO THE TU % 
0018A6 82 TUPARM7 EQU  PID+X*"OOA6® ADDRESS OF EARM 7 EOINIER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER % 
0018A8 83 TUPARM8 EQU PID+X'00A8°* ADDRESS OF PARM 8 POINTER Z717 ** % 
OO18AA 84 TUPARMO EQU PID+X*OOAA' ADDRESS OF PARM 9 POINTER 278 ** $SNVLD * 
0018AC 85 TUEARM10 EQU PID+X*QQAC!# ADDRESS OF PARM 10 POINTER 2719 ** A) RULE EQUATE X*0600! alae 
OO18AE 86 TUPARM11 EQU PID+X"OOAE* ADDRESS OF PARM 11 POINTER 281 ** shea 
0018B0 87 TUPARM12 EQU PID+X*00BO® ADDRESS OF PAKM 12 POINIER 282 ** ENTRY POINT TABLE as 
0018B2 88 TUPARM13 EQU PID+tX*O0OB2° ADDRESS OCF EARM 13 EOINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * 
0018B4 89 TUPARM14 EQU  PID+X*'O0B4" ADDRESS OF PARM 14 POINTER 284 *% THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE 7% 
0018 B6 90 TUPARM15 EQU PID+X*OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: kK 
Ea SL AURSSOnE £60 BLBIENSBERs © ABDEESS OP ESM ech eN Eke 2 s) MAKE OF ENTRY gorua . 
+ : = 4 RITER 
0018BE 93 TUUA EQU PID+X'OOBE® ADDRESS OF UNIT ADDRESS IN EBC 285 ** , A ADDRESS OF ENTRY POINT RULE TABLE ok 
0018C0 94 TUDA EQU PID+X*O00CO!# ADDRESS OF DEVICE ALDKESS IN EBC 289 ** ek 
0018C2 95 TUBUFF EQU  PID+X*00C2! ADDRESS OF LAST USFD WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A X*0000! ¥k 
0018C4 96 TULAST FOU PID+x*OOC4! ADDRESS OF LAST ADDRESSABLE WORD 291) ** * 
0018C6 97 TURESULN EQU PID+#X*O0OC6! ADDRESS OF LENGTH OF TU RESULTS £92 £* MESSAGE TABLE ek 
0018C8 98 TURESUL EQU PID+tx'oocs? ADDRESS GCF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR es 
0018FC 99 MAPNAME EQU PID*#*X*OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * 
001948 100 TUINET EQU PID+tX*0148! ADDRESS OF $INPT DATA PSone al a ek 
001968 101 PARMARA EQU PIC+X*O16E!® ADDRESS OF $INPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK * 
0019B8 102 @DCADD1 EQU PID+X'O1B8' MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE xs 
OO19BA 103 @DCADD2 EQU PID+X'O1BA® MDI ECINTER 298 ** C) LENGTH OF FOLLOWING LINE ok 
0019C4 104 SUPSTAT EQU PID+X*QO1C&! ADDRESS OF MDI STATUS 299 5s D) FIRST LINE OF MESSAGE A 
0019D0 105 DEVADD EQU PID¢X"O1DO!8 ADDRESS OF DEVICE ALDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE * 
QOO19DA 106 DEVADD1 EQU PID+X'O1DA? ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE  % 
001984 107 DEVADD2 EQU PID+X*O1E4# ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G TC. * 
0019EE 108 DEVACD3 EQU PIDtX"O1EE! ADDRESS OF DEVICE ACDRESS TABLE 3 303 0s ek 
0019F8 109 DEVADDY EQU PIDt+X'QO1F8* ADDRESS OF DEVICE ALTDRESS TABLE 4& BO RR i i a ak ie 2 eo 2k ok a ak ie ko 2 2k ok ie ok ok oe i kK 2 a ak i a fe fe a ate ake ok ok fe otic ate ate ake afc oe fe tc ak atc ac ake ak a 
001A02 110 DEVADDS EQU PID+X*02028 ADDRESS OF DEVICE ADDRESS TABLE 5 BOR RR RO ok aK ok ok ok kk eR IK Ok ik kok kaki kk ke ke tk i ke ak ake fe ak ke ade tk fe tc ate fe ate ake ke ake ake otek ke ake 
001A0C 111 DEVADD6 EQU PID+x*020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 142 DEVADD7 EOU PID*X'0216" ADDRESS OF DEVICE ADDRESS TABLE 7 





AK 
* 
* 


PAGE O2A 


COPYRIGHT IBM CORP 1976 


EC=578757 
RCI a IO CO Gg ak icc aca kk kak kak acai ak ok 88 8 i a oc ak ai a ak ae ae ak 


MESSAGE TABLE 
AOR A RO I RRO aI OR I Fk a Rk a a iC ak ok 
AO a Ci oo ok kokac takai kali ik tok kk ak i ae a ko aka ak ek ok ak 


P/N=1635072 


%K XK 
%* 
OK 


TNOEDHOSCAMTNOEDHOEAMNANOEODHOKNNANOEDHOLEAM FY 
NAAN A AMM HMO MO MON SF PIII IPT ST TNMN NIN MNININN NOOO OOD QDORFREEEEE RE EE ODDDDDDDDDHANNAAANHOOD VQQO09O FPPC PEP ERK TANANANNAANMMMMMMMNMNNs T= 
Toasts s sss sea SIS ASAI AIA IIA AIS AAS SDTV SS FIFI FTF TN NAA DA ALA ALA AA AAA ALA ALA AAA AIA LI AIA ATA AIA AA EAT EA EL) 


STMT SCURCE STATEMENT 


WRITE MEST 
OBJECT TEXT 


14802 --- 
LOCTR 





OK 
KK 
KK 


PAGE 02 


COPYRIGHT IBM CORP 1976 


578757 
We 2 Re a ko ek ok a ok kok kk kkk ie ke gk ok ok a a a kc a a ok ke a a fe ke ake ake ae akc af kc ke ok 2 


EC 


P/N= 1635072 
STEP AND RULE ADDRESS TABLE 


Ae Ae Re ak he 2K ek a a ok ok Ook kk i ik kk kkk kk kok ak ke ok ok ok ak 
BR AE A CK A ee 2 ae ee ee a ok ak ak ae ak ai a ok 2k ate ae a ak a oe a ke kk i tak ok ok kk kk kk kok i ke a ik ok ake ak ke ok akc ake oc ac 


KK 
KK 


TEST 
STMT SOURCE STATEMENT 


WRITE 


OBJECT TEXT 


I4602 --- 
LOCTR 


A o 
aa 
<a & .» © 
= fq 
ea) Oo WN & 
e a & 
Ee e <=— «Gg 
[ea Q = M&M 
ha) AG en} 122) 
Ww < & O Kf 
bt YO He & & 
A = 
® =a YO 
<& a oO tH 
'o) Y =a A H » 
e ee = mam WN e 
«<a is) = H © A 
fa) > 2 = 
QO “— —- = OO 
yn =m > «© B&B 
o & a SS & 
< eH i?2) Aa Oo 
® =a = Qu 
G & = Q > ww 
oO fF Jy Ge tS 
< [£3] oO Go He FG 
oO & eH cd Q B 
ret «et & e a A GZ ea 
eH ica) ~ Oo @& HH RI 
nN = es} | <a fe 
OQ «a - o w e QQ 4 . 
= Co So Ke 1S) < ~ 
Oo wo oo - - QA <2) mH & ES 
x Oo ao foe) OG oH O &- 
re a t A = faq OG yw & 2S 
”Q RB is) fx ie} O => 6 
mq =A wt Ay & 1S) xm 4 fw AY 
aq fy os {<= =m oS <= 
& <c = <c = 4 = QA HH 
eS ic Pay YQ < — =) 
fas) {®) jo} L- if<) oO A Oo Oo 
A eS & ES & 4 ~a Wm & 
Y KG nN 7p) Ay Quy Aa 
am %2 Om FH OO m FD OC me Wm Ke Pn Oe oe 
N SH AN I ON HoH ODO TF RH CO FB eS wn & © 
Om = Om =e Om ome Oa” ee a alae 
oo0rsr ONNTSTST ONNSTSTS OOO CODONNSANNSsTSTOO 
OFINN OF FP &Sr SCVererr ofrt OCOrrooszsrtrsrsaesrmMm 


—OO°o9Do ~woooOo ~oeoo0o “OO YoOCOCCOOCOCCOoO « 
NOOGOQ NOoCooO NOQo0o0 Noo NOCcocoooCoOOCCoOSCNO oO 
ROAM AMAA HOH OHA HAAR 
% CSOCOF CLOUGH CAO COK CU CCUSOUCUSUCKUGUOO 


oo 
To 
Ox 
> > = = > 
AVVQVOYVSOVYV VU VVVOSGOVOV OW YQ VIQUGVQVUOYUUYOUUU 
ROARARAROQRORARRAAQAAWARAWRARAARRRAARAARARAAaH 
Re 
AY 
a 
~- foe) Ke g Oo og 
Ww we No] ~ ~ vo 
[ae] >) >) © (o>) a 
oS lo) oO © fom] im 
So on) co) (>) oS Qu 
by Fy By bes em 1e) 


+ + A A Aa A YQ (o) O WY Aa 

Oo 9 O YU OY YU me g can g OU UO =F Y 

Co @ “- Ft “_ + wy wy or YN => 

zr YU UO a YW A 1S) a + YU WA 

army ~m Oo oOo & mY) cv ro F & 

mR © a 4 O YU O <3 i > a 

ao © Qo wo QoQ 2 = fo) Oo +O /O 

Qa + A +r A 1S) Q A QA A 

wz my OT ~~ mY) oa) Q own om 

O UY GQ fy wy Q cog My YY YY wz 

N N © N Oo ~~ ~ oTFrT MM &S 

yy Y wot cs a 2 Q A FT YU As 
NAIDOO NUMAO NOMAD BPO YONETNOUDKMNUDEO O 9D oS QDooo0o0ooe ooo0o00000 
OQNARPA CDOVU0DQ DOYOA ONU OFVUSANYNVUANYUETA CO DZD Q ole leleleolele le) oOooo0ooo00°0 
CONnNomM DOMOMr DOND™ DON DOFOODHDONDWOOrF 0 Oo i>) oooo°0o00.oO on Tom Tan Fan Ton lao lanl | 
DBOVEA GCOHMOY GCOHMDYU DONQ DDOASCAFOVOCHOWOY CO Dd oO ooo0o000°o oooqoo0°0so 
DRAONON DCEO GQO CeCe DO DTUDONWORUOR DO ge OMRNMNANOFDANCQVYUAR Rl) OPNMNPNUOSONEQOYAR RR HDPONTSFOODRUYODRMONAPTOODAY 
DOADAKDVUQQAARQAD HOOT EPR RK SISEITINNOSONOOWQ CO CQ Brrr wr Perr Crew errr nHKO NANANANANANNANANNNANANA DO BRE NNAANNANNN ON 
OLA AAW WI DIA SDI ODDO DODDODOWODUODDBOODODND ~~ ~& DODODDODDODDOCOOOOOOON Sooo C0 0000000000 PREP PREr RPE RE mPmem ™ 
NANNANNANAUNNNANNANANNNNANAN NANANNANANNNN ON NN GDODDDODOOCODODSCODOOOOON OoooVTOoO09000090°00 AYNNNNANNNN NANANNNNN ON 
ODIOOWDOSOVBDOOVSOOVPBV OV DOUOSOOODOOOVOVOHN9V00OOSO 0 D OAQDS®DOSODOOOONDOOCOCOSO Doooeooe 00 0009009300 Sooo0odooo0009 00000090 oOo 
29909090 3990900000090090930000 399990909090 0 Oo CODOCOCDCOSDDD0O09ND009009 OoOvdooVoO C0000 009090000 Ooooo0o0sg0290007900090O oO 
+ HHHHHHKH HH HHH HH * 
+ HHHHHHH KHHHHH HE * 
+ % * % % % 
* + 4 +H + % % % * 
+ + + + % % *% 
% eH # tt ~~ ~ ~ ~ ~~ % % * % * 
+ + % ike) ~ wn ~ Ke) % * % 
+ 5 ey + % wy « = foe) 7 % % * % * 
+ eH te + (>) » oO . co) % % % % *% 
* + % jo) jo) io) ro) o>) % % * 
+ + HH am oS - Lom) N oO % % % % * 
+ * % 3% UO (oe) YQ fee) 9) %% * * % 
+ % a: a 2 — cn — zs = % % % *% 
* % + *#O I — tt ~ iH + % + % * 
+ + % Xt #O B ~ H — a] x + es * 
% % + + tO UO i] 22) tt op) % % % * * 
% % % ae ee . ro) S ro) ® % % + % % 
Ba + + ee~ vp) i=) é~ & Oo % *& % * 
* % % a || jo) ids) io) rb) So % & * * % 
* + * eH co) e fo) . on) % % *% * * 
% + HM (2) ~ jo) ~ co) * % * 
* % * eke © oO @ (oo) zt >) + & % * * 
% + % 3 os z Ww = Vo) Zz % % * % *% 
* % KEE I io) iT co) iH % % % * 
+ + + eH™M nN >) WY) So WY % % % * 
% % % %#%#O i<2) jo) es oO i % % % % * 
% HH W #HXO > ic) > Fag aa) * % % *% * 
% eH wl ##H#O e — e — es % & % % * 
+ * OQ ##HeOU ~ Ut ~ it ~ +e + Hy * 
* eH GH! Oo a bl eS ~ +t Tt ee * 
+ HH H HH II we fey wo By wo *%* j%O #* * 
+ % % eee co) - ca) » co) %% Bitte * 
+ +H ZB ##HO fo) <x ro) mM oO et HE ee * 
+ *t+ OO #F 8 a] tl oO i oS ~ % & ** * 
* ee we HEM oO oY) oO Qu ol > ete HS HH * 
* eH HY HES =, <2 = ie | ~ aad ee Bee * 
* +e <Q k#*eO i » iH e i fom] ee HH He * 
% tHe TD ##O & oS Sal oS E4 Oo +e OD % 
* ++ G@ £#0O m - oO N oO oO ee Qs He * 
+ e+e CO %#8%4 » foe) ® foe) » O * % % + 
* eH fe we ic > By zt oO ~ ete > HH * 
* HH BG HHN © u O It fe it +H G HEE * 
+ eH me eH » Ay .Y Ay » et He HH FEO * 
* % # a) ie] ~s >) awd co] om ee ZB FEO * 
+ + & hl ++ .® ~ cs > ce oO an) %  ###O * 
to: _ -_ ~ ~_ ~ ~ ~~ ~-~ % + a tem ee Rr om Ge Oo =m Gj © Oo -— Xj om ss % * eRFO * 
to N ap] a+ wn Ne] ~ fe @) oO me eH D #HO MO ow rt wo <r mm xO => ~~ HH ee Il oa 
%#Oe Oe OF De Ce De De Ce De mH He GG #HSTF OW Re © +>, ee } i ee en) my = met KE HH mie 
HOPFONNOMMNOSTPOMMOYOOOPRODDOAA A HHO mOOC APN Om REDO ZNO em RG am O AN RO GO eWOmwt= He eee 
F¥ ODOVOOOSOVOOOVOQMVVOOCOCOVOOODOCOOC Zk * %+ H ONDOHMNO MON =. CaN GOrsOon aw CSHEAON GWOrKsON ew SOH™-OnM Es + eH OFF 
Ht OOOO OGVOOSVO DOI VOOCOCOCOCOOCOVOOCOOCO DK * HHONOOXKMSO eOOWNE we Urs sODe HH weOOhNoe Urs ReOOWe HH weOODONGO .« UMOXKMOOKMOD #¥ H#N© CD 
# ZOO2ZO9 2090 ZOO ACO ADO AZQVOVSZOOAVQVOA* # HOD SREHONDSDZSDOOM OCF) “Il ZOTPHRKMNDZOUOODTS CF) ~“j SBOSPDOHNDSZVUNOCO Ce ~RHOChNWOOR + * *%*% wtioOOet 
+e en —_—-——— “ee —» — “a “a “* # % % WOOO Bt wrt WON UO® © ORM PO OW RANT OGCe & WO HMM PR] AWEANMHO~MHHO™” € * ** Le Owe 
KAN AN AN NAN NN NN NN NN NN NF HH NON |] Sh DONAHAND HN Kg 5 9 AB By PON NOB NAAN GAN KE 2G 9 A OS ION NUBNHNNG GN CO] i] Oh I ORAIN HH HNN 
Ce a ee ee er ee ee ee ee ee Co +H AM ernst IH ® On OR IM HN He One® OR mn HIM) I = One® Often] oe ee OH" 
%lPq OG KOO KOK KKK OK HO Fe ONE xo ey KS KOS EO KOC SQ SS eM SUE HCO OUCH SCM EOS pela team eae 94 blo Man aan 
+ % + % + 
* % # *e+H#W & 7S = = we = wel ~ = & =] % eee 
+ + HH ~*~ ba] (o) oO wT a! oO Oo 4 ms i) < os * % % Ou 
* > rom] D> Fas) Dp dD > > 2 + # ##D H > ei eS st > He ee =) be + ~ = & eee 
* OVOUVOWOYVAWYVOEPAVINVOYUAY VOQAU# # % HOU URMUQHOUUUOUUNRUVNUGOUUUVORVUUVQOUODNRUUNUUVUVUUUUBRVYOUQVOUUUNOUUNU EU ORG UY Ot # *¥%*2ZU0YN 
% OD DMOQOARORADARQMAARAAARNWOAARWOOHAAHA * % HF RAQRAQRAQOAQAN BAA CAG AQAQARARARQOAGEARKEOQRPAQARAAKRAARAARRAARAAa a ec ee o_o 
* * * * * 
* ba N ” cf ee) No) é~ io) nD K* ee + * % 
% =) ro) ro) —) ro] rr) ron) ro) Oo #* + *% + % 
* j=) oO fam) Q So So © jo) Oo *F HERO NN MM ara ww) Wvo | aed Sad am nN % % * 
* © io) oO (>) fom) fap] jo) i=) oOo + H#HEOO CO OO oo Ooo Oo (ole) oo Ooo Ee & % 
* oS oS [o) So © So [w) © Oo + FHOO OCOD OO oo oOo oOo oOo oo Soo ite 3% % & 
* = =] =] = i] = i) = 2 +e #HOO ODO OO oOo oo oo oo oo oOo et ee 
% CO (o, oO oO Co I oOo (e | oO Ch KEKKEHHEEOO CO OO oOo om en} oOo oo oOo OO Ze HHH HH 
* <3) ic | tx] fx is 2 iz} fa [<2) Gl HKHKKKKRSSR SQ BG bo) Parma me Zam Za Ge He HHH HHH 

++ +e $e be ee HHH HH +F$H¢H HHH $F$ HHH HEHEHE HHH HHH HH HEHEHE HOHE HE HhLULU hc HhhlUhhUh ++ 


om) 

fey 

= 

fey 
Or UN OM NSF MM OO UEFr WMO NM OO 90 f=FH OCRIONNYA Of Ff wrwetnoe 
NO NO MO FO FTO OD OOD FO DO oO om O29 OFNTOM OU YO CARTS 
NO MND ND MO NMOS WNO ND NOD MO Oo FeO KN NUMEANOw OF OD NYNSeroO 
ND NO ND NO ND NO ND NO NO OC AN BN ABNNOCOD OY F ONRVUO 
NAPRPODN AON DOPFNIFNODVO SUP WNODNAAHO Oe QH ONTYOOA UF OO NFeEanyU 
CODOSSSSSSSCOFFDWFTCOrroKrNannon NN NN MMAMAMAM YM = AtIatAtos 
WIN ODWIMN QUIN DMNMNIQGUNIN QUIN GDIMIDINOUNIWOW WW WM HOR]LAAWAWMN WWM MW NOMWNWMNW 
NANONNONANNONNONNONNONNONNONNON NN NN ANNNNANN NNN ANNAN 
OODDO STO STO OOSO BD BDOOOOOSSOVOOOINO O20 00 900009 9020 9 02090099 
OOVQo ogg OO 9 90SSCOSOVDOIV 9VOOVOVOVOOCSCO Goo e0 S900000 90 9 909900 


PROGRAM OPTION CONTROL WORD 1 


fo] 
Or] 
Mas 
N ms ~m 
YO Bale 
AQ & RG A 
GH we fa] 
oOo ne Oo oO 
= HAR = 
eq @w2n, 
a O < ro] 
Oo GM QS io) 
GS H WW YU mG 
eH GB UD « a] 
= O BAN Aa =z 
Oo VY i 4 Yao 
Y fi) b> HOU 
= maw mt 4 
2 <a aio AHS 
Oo & HQ avr 1@) 
KH UW Ne Dae 
HH O Bas WEI EY 
Bw @ HOU fa¥y oY) 
Oona mf H moo 
Aan fe] 
2 = wan eas 
< fH NO Usa 
Gq WU KS OG 
Oo © MA maw 
a oO BND CmEO 
am mom 
Ae RHR HHHHHRHRHRHEHHHOOO 


~ 
HOF NPOFNEODINCPOINENE 
tom} 


e 
HORKNAM TNO DNOSEAMNINTW 
~ teed wed week mel weed week eee seed 


00008 


OPDNHDNOSETNYSNOPOHNOFrOTre 
ENN ANNAN NAN NAMM MM) Og 


X*000.0* 


POonsnoeCDoaD9D0ODD0PR5 
COITHOI[SIIAIAAIIWIAOOIIWIAWIIGAOO 
pce ie aco ica bcos s ica ls stca lcs lca tesica ics ics icatcaics Ten) 


~m 
= 
DHAOENAMPOMSOHOFNM it 
FIMMNMNWUNMNMNWMNIUAW GOW VBA 


PTN2 DC 


= 

oO O 
< © YO 
NunmwW WO 
QUUUH 2H 

a7 

io) A 
YN oa 
WN oO 
a > 
RS Ay 
O Dba WN 
O m= H 
G mi wv 
& Wer S 

oH" ” 
ae Wako 
Hees MmOMO 
a oO [o<m) 
Wan E41 OG OG e+ 
PADDY HRIAGA, 
HHH = 
Let DUNG 
E464 UO 2G 
Wsw) 4 

ma no 
NNW WHOS 


ONNSCOO 


HON stoo 
FMM 
WALILAL LY 
NANNANAN 
OoOOo0°0o 
ooo°09°o 


fee} 

° 

ro} 

fon} 

4 e4 os 23 

hd bet vo) 

mp fan} ce 

e4 ran} a 

QA} XQ 2 
W~DOO Se aA 
G04 0G yn @& Oo 
mH WRN wm O 
AAezamy & WO 

MHOOZNWQaH =, 
SZOUVONAHUAH O 
eof Ae HOM = 

HANMUOUMGmAYH 
Eat OMG Fe a) eat 2S FT el? 


PG FARIL)JOO UU? 

>HI BH Ime 
BHO CUDA zAMmOaU 
ZMH Wm Dede O GD 
HO AB OH] hig Bmoe 
ROARKARMAGAHeMNeH RIA, 
HSMMADMMDMNNNHA ID 
Pi BOO EYRIOG E+ rq U) E405 
HmORGO GZMkiIWM Omm 
HONMMOMH G4 Et Hm 
NMOHOGH UUUMNO H 
HOBO MH ANOS 
SAMAR OHS OUURHOSH 


res) 
de oe Ke be on be 
SE PMS RSRO INT OPNECOINETOANE 
G 
E+ 
HA = 
eH ae 
GY D> HAWAQH 
PH Ge NSW HORPNMHITNOPONOEAMIWH 
Gg <C> oHM beth eek ed eth 
mGomU NORU 
ROGER oh 
Ama me 
Ie 3 0G RG pd 


NOFNOEODHNOSPNMSNOM™ 
AMNMAMAMMNMIIrtstsastss 


MPODoScoso2og0HDS0RN0D 
COOKOAIOWAOWAAIDWDIOACACSHo 
ROA QW ARQ e ey 


F2F0 


196E 


O0255E 


COMMON BUFFER FOR PRINTING DATA 


TEODOR ONHOND of 
OmmMtO SCOTOOO OV 
ANINS NNEOCOGO o- 
ONHUGA ANNODDO OV 


ONIFORC YRIONTO De 
OOO90H OOEEeee hE 
ILALALALD CALAN, ec 
NANNAN NAANNAN ANN 
Oooooo0 o00090090 98o 
Sooooo e90O00900O° °o 


wn 

1G i ~) YW) 

A % WV) 
Oat BAQAARA fx 
9 E405 06 04 Oo i= <4 
Ap>n NOQODOCOMNEA 
Om ODBVEBEBUZWwOQG 
Z=zUAH QR a 
Oo > W271 0401 Ou Oia O 
bet 2 ud CO HOOMMAmM Unm 
HO << NQAGARQAARZ wa 
od A? ee bent Fd Fey 
OnE <« E44 Se oe Eh 
Hem + 2 MNO Beles 
fey Q O=Z=UARAAUMA 
Ha OF ae 
HON NZ eeenerve ee 
20D OG Ae Ba) Fd Fa) Fd ed bd fe 9 
fa & OQ FES tend 0d pd a HF had od 
CQO a 4 fieg fis PQ 0 6 0 00 6) Oy OQ 
ht Ed Ent UY) et eG aS a, a a, a es ae 
=U KG AY GR 4 Bt 4 EH 4 
Set qi iQ 
oH @ A i QO Ma AQ 
ZOn hy ABOUQULVOU0OU 
DaAZzORB HDAAagnangnga 
<e UO m 
& Nie AQ HH eee Eee 
YO hip SNNNNNNNNNMWNH 
NY am BA KG a a a ES oS Eh 
Hr GOW’ HH GQ dd 0] 
ggg nigga ggg ggg iggy 
HHREKEKEHHE HEHEHE HH 


pret rpiem tterppebeoe 
HEHEHE RHE WHHE 


KEL OE Ll eL GOH SS a Cis 


DOP SETTER KE AANANANNAAAMMMMMMAMMMNM Ss st Ft FFT TTT TMNNNNNNNN NOVO ODOC ODOUR ERERREERRDDDDDDDDDDANDAADANAAARHODSOSCOOOCO OP REPRE ERE ANNAN 
ANAM MAM MAMA MAMMMMMAMMMMMMNMMNMMMMAMMMMMMAMMMAMMMMMAMMMAMMMMNMMMAMMMNMAMMMMMMNMMMMMAMMAMMAMNMMAMMMMMMAMMMMMMAMNMMNs PJItI sat ts2sas2s32942499 77757552 


Yd -ct 00 ono 
Oo Or Oto INO 
nD FBO FOO FINS 
= ON ONO UNS 
YOY RO NPrOD ook 1S) 
~ ™~D DODO Moe 
wm WA NWMWW min 
NNN ANNA NNN 
eo 00 0000 fan Tom Tom) 
oOo oo 9Se000 ooo 


CYCLE STEAL DATA BUFFER 


SBUF EQU 























PAGE O3A 


IBM CORP 1976 


578757 


EC= 


1635072 


b /N= 


TEST 


WRITE 


14802 --- 


PAGE 03 


1976 


578757 


EC= 


P/N=1635072 


WRITE TEST 


14802 --- 


COPYRIGHT 


STMT SCURCE STATEMENT 


OBJECT TEXT 


LOCTR 


COPYRIGHT IBM CORP 


STMT SCURCE STATENENT 


OBJECT TEXT 


LOCTR 


+ + 4 
+ # £Q - 1 Pu 
\o e * oo © 
~ a * oO On 
fae) i * “XN oO mM FQ Q 
ica ica A + H Om YW eH 1) Ht ae 
fy G oO + =OA Mm RF Zz 1S) 
\O Au * a) dee) Wy wn ma ea] G1 je) z 
[o) Q A [e) ~ + YU OnvOny A A O E+ & oO =O =z Om 
3 Z (oa) UO Ww * RIA, HH Ak RG a) me RIN = J HE H ZG 
+ x oe WOU + zi A HRA < Mahe m + z BU fH bd 23 
* oe & = jo) + Sam mAb hieg A 'o) O fu - a} KH =r > 2 Gey 
+ ~ <“ Y HH & a + mon WWM AeA fae = = re rs es e on © bod Fag 
+ Fxg = Ha «ca Oo * Ss) MOBS mm oO Q OHA HM x > reve} roe} <4 
+ Loe | Ga Ww is HH YU YN * WA A hum, = fey He 4 = ih | te w] oO a oy) 
+ m& Oo (o) E+} La eS} ¢ eoHAH DpaaOm ««& | HOW ee 1.) G Ama i=) YO 
* ic} fy oe fea] Mm fA > *+ wt BW MO HH io UO DD 3 ea | < ce W 
* = <G & + = Oo + MAW NANMAWH an > '@} a Req M<MuNG mOoOW Q Wz He op 
+ & wm ea miw A #MWWMG > HMNWNUI WN 2 =z (o) my me Qa < [-fo) mm BAe 
* ~ AGO (ole) OH # EBAY = AARAAQRAHRNNAMN mom H eto » 7M OW is) «=a © 1 Aa 
* = HOH isa) ie) Fut D * RBAakeHe ere perepmperant ey tetera O wm =a A ee fa¥P >} =a we OG Ls ee OO 
% «a re GRU ~ oO oO MN #A 79) OD00CO hana h pol mam Ss) BQ mw PD > RW FH = Ze WS sthehIOG ee 
* OGmUWN << Ga & Ne & #FOMG W@W SBBPSBSBzE ANRGWARMm Oy fey Fo SHG Ome =aAm © Gr GBGHOSH GHW Of 
* C64 pm P82 dea) SY G&@ G&G O DU GB HS + ZOmaAdD mBOAOARwM Pl fey maO mG O *« =e OO “GCG «<Q tre Gl Wom 
+ 4 ed G0 Ge O WW @ BU AQ + mH NNNNNWOK{aAe SD H HHORIGz wWw2z,Mm> a He Qa AMHOQ AMR 
* << OhRmA &@ QhO & Oo «eG baad =a #2 BA BHHHHO On OU Q KAR PUG HRM a ja > => UF >a ls 
+ Q r mm FC OPmMmWOmm A WW HO EO WN QANANANAeNeeNe we YU << UAMO BAGinQe AO i] BN. ANC BINEIHORm 
* ~ We Lach GOGMe com oO ne Mm OC *#DPHOSPG@ DDDDD HNAANAMO BH Za SMSCHOAH & MM= ZOGse OnRINADORVUE Qe> emo 
* 4 moO B2WO Gmmakh aga e Oo HH *#£+H AHA NNNNN ghee aeke cm He ROH LiChirHw > » Sete HOB WOHaRw Il Obese mM eee 
% ei 1 He AOR BWmA A 2a wW A HRD Ae AAAAWAa Gm eOeHO wm CO GUANA OUSERAD AE A424 WG ASAE ARCHSO SHH SZ II 
* Ln | Ast OA6Be AMO ROGH FH iO & =a % Gem GGG BEAD DADTH OM & OUDMNH 20 IGOKHHH GU HON GMO Ha Bam Ww HG moO 
* OG eo a NUSEGDmGR OG O GamkmM oOo mam + = 0G 0G ARMDDAAMSZ a | ™ Ge HeMaA@gOUAOm lim UU eae oH SH BME mire 
+ = -* <M YW WOAROm ORNGMODOHR| & Dm *# HWE gO mmammwGm «a < 4 Smee em mm BZ Qe OA, OGG th «GO «<Gi) 
* . os WY 2AGH MmeCHeOHMORmUMmNN SH # PPAR Bete AO ASS BZOUOO OG KRH OF MAA e Bue OVeNGCUSTUOMao EL onmme. . 
* e = OS HE NNSA MON Rao MM = BI OES Het tH UGE OWN eae se OS PHAR GEN OHe em GHENSae 
* G MH ARCH ee See UAE oO Mm #NNNUD AAAS SHOORO2ZS ARMOR RAHARAURZONKO FH akkawaemUcGgOQOmOOmMOaZONMNOMmMONDA I 
* = rq wf BURA yOawHwMAR i La! * UUYUUDUUAOUN A EAHO BMHOURASNUOUNH®A aN) a2 NNWNNROAR BOURBON Mas OHenN=o 
* og YQ ftD ANP KAP OC NSONMHHOUYD NH * 
* oO = ~O ARMZBOH Qe pwd SEGOmyOMA * 
# Fea ca OS CAH BNOAAH MAtaKMAQS=s VOHO * 
* & am HOD @GHmaNCORIC GO * 
Wr ber SE wMMeOGMNHEA ERMA QOOH + 
(+4 is | HH NG OF HPUGGEQOSTONGwHOrrmMg” % 
Nt is oof sO rr~ !_oe Pere ee repre t emaor * 
om 4 oe Vr wm NIP trbrrrtrrtrtrtrerrereb&e * N 
Ox oe TO | G MOprprete tb tb t FOMNMANONDS %*% QA ~“ + 
Noe ak HRN HOS NMSENOR ONC ET KKK KKeMstOo * H ce @] No foo] Q+ mo 
NH kt E44 MAIR OA, * wo ANNAN + ++ N+ 1@ Toa) SIS) 
+ N eG OH ak Et Gt a eB Bt BE EE + 1G 0G Rg OG +a +t mQ mm + AY AQ 
* Om ASH]AM NHHAWHHH HAHAHAHAHAHA HAAS x ® N prwee =——Oor O U UY mY <a wWeaqQ rote <4 
* ei rq mere QA) mmmmnmmonmmAamaaRaAamMamAmmamMMmMsy He atom ANTFOD 0COF4G%4 & Q RA AN Qa VSG 2} a > ws & nn 
% 29) rnd bod CO AH Ww % Ete OGG] ete+e GMM amo se OK ae a 1-0 1° er =F -Ta | WW OD om O Oo em H O m ewe 
% is) Or} RMOgTRG ded 4AAAAWANI AAA eA % FMN ewe AeA WOU UG) MGR WWM MN MM WONG ee MG we AGE mo R0N YU MON ee 
* e faye OY BMeCgrHH NMDDSODODSVDPD VCD BIMBMDORDyDD = FDOEKTUN DDDDIWHRHARQA wo eM mm & OIORIO ee w= WY & eine IG © eG ee WOM MO NO 
N * UU Q A VO VUNNMNNUNINHNNNNNNNNNNNNNMHN H #FADSZSO NNNNNCGUCAkhO HAN HOMMOAMPrPOUIRN+& be Wr Botmenh GO ao AG aQ QQ OSC 
OR 1o) By 2 TAY TM RAYA QA Yo eG e et HOH RAEN SrazNDOOVUCS eClOOM © es MHHOOFCHAHRK BO¢HORMO HO WOO WOH WW ew Ae O80 
CORTE - TSG FB HEmMOU Reem oom OO DD FR™e UO Bee eb iO OO GMHSIN eT INAS Oh, eA SMe CORMAINORANRGAaePeermaast oF 
OFWIINS b+ =a) 2 (< Gis BD DANIO ADDDNDD G@& HY ££ SMHORK DOMDPDD W002 OF— WOWGOWR ofA eA rHNSORIMNe HUN MMOH GGUS eet GU Gewe & 
Trem HOR yd < O FNM FB RHHASHHAA HHH * Eh Bh tt BO 4 OG OE 3 KG PEE NO SOTO NIN DG OD IN BG 55 a QD a Et Fig Es me Bina Et OD Fg UD Bg Et 4-9 od 
Wet O my A AIRING < = + 
* AH & Bi MW OMRAay & oO % eH 
mee He Hun BuMHo wo VU #3BSEay NNNNN-H an | G we HOH a] > HR 
2 Aa b-436 -_a &@&@ AEG OD Yn Oo HPP CB SESS STEPSIPBHEANEAN ABSSFOQSHHBHS2ONN = eateateeks fe gral | Bea aeansaamanses 
OOCOD>* D WWM Bs SB Meese 2 OW *#ESSSOQ Soeprorrrre rer ze> tro UCUNQOS>S >POMSMOESr>S>>S>O>Z= SPP>>roctOUNOdth> tat >a > tote cNnO>> 
Qh Otis Q OO Sr wr UENO eA 2 tc ke ke tee tee ot eG eet eg OG * SSSSVAVVsVAISVNQVBYyNQAbOSRSHHLVHVSVl<eLeHVVSSVSVBVVNQOQkSOQOVSOMQBSMBaMSNQZlQHeryzT=z 
*% ky Ay | Ha * 
Ne Ww 1G =| H #N ~ > 
MF OF Da << ica) # oO N Ay ea 
eee OF Qy WY OG # CO fon) oO faa} 
NNW We += Et oO MG oO _ 
ONQM HEHKKRHHHHKHHKRKHHHHHKE HHH HHHHHKRHHRHHHHKHHKHHRHHHKHKHHHHHRHRH HH % OG | wn ids) © 
Sere ee eee eee oe + SPP HEE HEHE HEHE REE EHH HHH HEHE HEHEHE HY 


TNODAOTAM SN OMOHOTAMST MOM OHO FOR ORSCAM FUNO OHS TAM FLOM OAT AM FUN DNOEAMAINOEOROKAIMSINOF ONOK AM TINOLDAOKAMSINOMONOK AMINO DAO 
WOU 0OUEEREREELAE DD ODDDDDDDAAANDAHAANNADIOIDOV C909 © PPR PER RRR NNANNANNANAMMOMOMMMOM MOM Ft FFT TIA TIMNMNNMNNNNNO OOOO ODD DORERERERERROD 
WWW DOUWUWY DHUUWWU QDUU DODO DODO QU DO DDD DDORRRRREE RARE EE ARERR ERARERAREEAREAREEAREREREREREEEEEAREAEARRERERREEEEEREPARERRRARRARERSE 


BPQAQAARAN 
Oo 
Elewewetere 
bg NO SPN WOT 2 
ey 
PARQAARRA 
MESES 


Se he Le Lo Los Lee Lap Le 
EL EE cf et KK 
WA We binjajhi 
a ml ad med me ee 
NNNNNNUNY 


ayeapesyesyespesgcs yes) 
HAHAHAHA 
YVUVVUUVUVUYU 
Dt Dt et eg Dt a 
YUNYUNUYVY 


ggg gy ggg lag, 
HHH HH Ht 
pr erereg 
WHRHHH HF 


AE Go cK al AG a AE 


VOUVVVVN0N0 
AAAARAAAA 
ePANMNATMNWOM A 
AnH HAHHH 


HHH HHRE 
MNMNUNUNIWIW 


YUVUVVVVVE HHHHHY FHHHHH 


a H 
fa a 
7p) = 
> aA 
WO 
YO Se 
nN Wh Y 
Hn NN 
GB De wWNH 
QA OQ Gia 
A Aq AG 
a’) AA 
=z «tO 
MS Ao < 
= Mp A 
M<cimc Ua 
HERR Hy 
Datnim Sa 
OA Ra 


ROGRAM 
AREA ARE 


P 
TS 


OING ANY 
HE RESUL 
ERFCRMED 


T 
M 
RIO GO ROR ROI IIR ROR IOI; RG IRR ORG kok ak ak dca kc ak aie ak ok 


', $TULD 


02 
gy 


he 
L: 


oe Ox 


PERE EEHHE HEHEHE HEHEHE HEHEHE HS 
NSMNOPDHOK NM FNOKR DADO NM AINE DHNOKAM SNOLDHAOKAM SNOOP ONOEKAM FINOLDHDOCMAM FNL DHNOTNAMNN OF DHOKAMPNOEODNHOKNM FN DOKNNNOFDHNIKAMINOE DHONI 
PFIPTATAT PTOOMNNNNNNWM BO OWOOOOCVORRELELEELR DODDODDDDDAMANMNANAANNNDWOO9 COOOO CHC PEE KE ANAANAANAAAAMMMMA MOM MeN =F = Pt TS TSN WOWwo 
LALA AI UI LEAL EAD EAE 9 EAD EEUU EL EA EAE EE UA ALLA LALA EA LALA LANL OW OD OW WVU WNDU OWUWOWNUUO NOW DUWUU DDNDWDDU DON DUDOUNUO DUD DU DUDUNNUUD OND O 


QOo900000O 
Oooo000oeo 
COooo000 00 
Ooooo0eoeo 


RONPOD EU 
NMCAMMH CH YY oF) 
Peer 
NANNAAN NN 
OoeIo90000 
oo loleleleolelele) 


0000 


Voro 0.00 
ODWDNOOCRO 
OB9Q090 F&AaAC 
Ooo0COore 


WHOTOdOLO 
NQ+atoasrsst 
and Ded ted Sia nd Sa Yan 
NANANAAAN 
Qooo09000 
QOooooOo0oO 


o 270E 3C02 


NO 


* 
* 
* 


EQUATED NAHES FOR SUPPORTED SVCIS 


N co) UstQ oO eo Eg oO m= un) ea Oo rt+oOo wo © Velo) 
Oo oO +ztQoO co) Ho mM faQ Qh roe) nn =| « oOo 
2 > DAO >) UA A UA ou .S) Oo Am Y a9 
=+ oO ONO >) NN NNN ON N NNN N o=~ 
ORID <a OXLUIWMOOWNEKELOZNO O OtUD co) UYAMWINA DUMANUWMA DOONOONOWOAON UR 
roo-7 YOYVUYASFUNMOTS=—O A LALA < IU GLY OLD) cad Fg) POOM GOMK UMN or iz fang 
Sad ad aad 5 DWDODOD-OAATAMO A AAAQA Q aAqQAgRAAQ ARAARQYVAA DIQIANNADES AAMAS UU 
NNAN PSE KNEE ANNONA N ANNAN N NANANANN ANNAANNAN NANNNANNNANANNANN NN 
ASFNUY NMMNNOCDARQK— ANS HNOK OOD HHO HODDOOQD LDDOADDMO=—DMOMMOMAWMADMOMNANDS 
DANSK NANANANNANDDDOVODNHOMLONNNANANQEKENANNONONNNONNOM BOONDO NONONONOASETNN 
BOLTED aoe gG{CLODDDDDHODAHN )CQDOVUVUIUNOONN AD SDOON COOAIDY ZHONHOROAONORNUNGDS 
OFTON YOUUVUFOWOPODOFTQONT 07D FtTtTITHDOY VOANDD VOFDWONAOOFTO OF OHONOFT OFRH aT 
OfLOTD SAWNOKNFOVOTPDYONVUO HAF CONS BUNT ANNO ORS CLHINDHNAO As DOOUNOYOORKOtT00N 
ININODOO DOPE DOCDNDNANA eagle GOQDNOYVVVVVAO8 Fy ey HOOD OQ RRR RK ONNNMMM Ss te PNNMONUAW 
SEAR PRR EERE PPR ee Pe Pe PRP PP PREP e Perr ODDDDODDDDODNDODNDDDODDODONOND 
NNNNAD  NOQNNAAN NANA NNANANANNNNAN NAN NAANNAAN NANANANANNANNNANANNNANNNANANNANNNAN 
DO99DD DDWO9DOD DOS TSOSDBIOV GOODS DOOD SOS DOSSSOCSOSOSSODSOGSSS9 SSS 9 3VOVO9SONS9T99NDO 
DDDOQ 90909090 230009000099090090390033999909009090099990900099999099009909990 
* HHH HH He tH He 
* % * * % 
* * + % % 
* UU % + * * 
* U 6) >> * 3 * % 
% > S) HU NN *% % * % 
+ 0) >UO b> % % * + 
* ul W sas + + + s + 
* xm uy By UU + % % uv 
% U Ube uz OO ~— % % % ‘Wel + 
+ Ss) > BA OO AH UU WO # + * om # 
% ao} n oo Qqgn >> 21H Zar + +t * BO 
* uw mm 44 SZWUGUOAIU4 + * SH *# 
* = > He OO “M HHAZHHNH* * * Oxs #*# 
% < BH HH HH GG NWN BSGEHHNNHHS % * GW +# 
* Ga Us HH MM Be HH HReG~~OD*e +t % ta + 
* .) >H mm 22 QAR NNHE = + + + bh 
* ro) mn zz oO —“MNNUU mt * * NO 
* ra UZz=2@ OO YUU «Am —Praor Ww # * oe # 
* Aa AHA >OO HH OV VU MNO HH * 2a * 
* UU UO <<nNHH He HE AQ —>UU me + mB x Rin * 
* >> > HM BHHUOU A NASSHO NX <x * =O * 
* mMno YO) BHeWOUU>rS!S DD mr OUNHHNEE HH +t * BIS # 
* S) NNUAZNDOD GG OO xHU VUAHRIt WW + sano * UO + 
* HH > HDD whe RO RHSHNORNIEH BS DONS O *+ <a 
* HR NUUFIE > mnH ORRIN TARHAMH # O #* HNUMNONSIANNDOCOOKAMS# AG 
* UPd oe Oe Le DUBS smmHuNu UDtU HW «ete YQ * TESST KMOKNENMS | Et ie Oe 
* UO OHH HE NOUVARTHHHUHH DD OM NO KH % Ging * WM * 
% PUSHNRURH AH HActHe red UOURHMOSCHOHSH HW #GD * Ha * 
*#ON> G>cQAQUUARHHS SHANA aS =) HeAe ce # EU * AK 
#> NOR NZ H ise te 109) ONUKNMNNUG OU A * *#U * * 
NZD HOF HH HH HG Wet HHH It WM # WN * He 
%* HW BZORSHOAGEAOAOQQHHHEYZHDHYHOA H QHAHKe = #HMD * HH *# 
HOE Ae QAG NSE el IE SHH SIZ HOH UxSMOUNMUUSHH D HDS * om +* 
% DOOD MAA HH ORO BOMOKAIAKMANAOQHNHGH FH #AH a * 
* OOH DUSCHHRGNNAGEaSSUGULEUGRArt rows % US % om # 
* x% Pm *%* OU # 
* * Om # % ect # 
% # % * my 
% *%* A * Ww % 
# *% % HO # 
* %* UW * He + 
* * 2D * * < * 
* +t % % Dm # 
* # W * Ob 
+ %* % El 
* * A * mo * 
% % < * % 
+ %* D +# %* mk # 
* * OO * % a2 # 
* %* 4 £ * e + 
* + + * Oo * 
* % + % wily 
* *% * * HO # 
* % tee sonNw % * 
* % %+ DOONIM™O + OO # 
% OM AMANOEDNOTAMIMN CE OHNOKNE toe COHNMNNDONINNOCOCOEKNMSHE AS ¥ OrN 
HOT NM TWOP ONT TH HR PRE RK NNNANANANNNMOM % QVVOK AM AN CHONTKKSEKOMOKNKAMTE EE EH AH FOTNMSNOPORKe re 
* % % %* O22 # 
* * % % am 
* * + * Ht 
# DDDDDPPD DDD DDD DD DDD DPDDDDIDPDADDDDD* % DD DIDDDDDDIDIODDDDDADDDAIDDDDIDDOF NO *#DPDPDD.OVDIDVIOD 
% CACOOIWMAADWOKAAIWIANGIOIIISIAIGAIGCI GOW OIOH+ % ADOIDWWOSOSOOOSOWOWAI:SSOIATOWSOOOOOCOCOIDIOIONn Bw # COOOMOCOCOOOCICO 
P mesiosteatcaies[estcstcatssicslesprstcotcsieatestcalssicatesfessestcs[esicsfcstootcstestcstsa ica icst | Re ee iS Jee] Sa Sena aes 
* 7 % 
% BG Hs H HN OTHO- Qa HirHitt % WwW ze Z>aSaNntovwo Sane + t 
*%* HRNVUUHSS GNWAARTHHAIOQMQ NNN Dee cHQexs # UDO G90 ROY SAHHHNMHAIN MAG % % orn 


% HRA US SAGO ORL CHAGOO UOOnHOOOCOO0O SH 
HDOQWM BOA et HAA et te ed Oe 


OPAMAMNOP ONE QDYADHOSEKNMAMANOPONEDNOQARO 
DBO9N9 99090 9090990 90900 CPPCC MMMM MTT eT eA 
CBOVOVCOOSVOO BO VOSOOSOOSOVODOOOOSOOO9OOVE9 
COOSSOSSSSOS SO OOS OS GOSOSOSOSSOSBSOSS9S9 93000 
AOWOVOOOVQAMOOO SOOO SOOO OVOP OSVOVO OO 990009 
BOIOVOOO BOOOO OOOO DBOOBOOOOCOOVooeg EO 


% DO AGMO BMD See OS SIS << Gog MOMOGMD 
% AHS CONAN SS OSH CHA ESE COKNMST 


QOOPTAUMSNOF ONE QDRUARGOODOOOOCCRAAYV 
TODOOCODOSOSSOSODOSOS SE VNADGVOCSOS Bey By fey fey 
DIWOOCOSOSODOSOSSSS9999 900900 HW FAO VOS by by fag ty 
BDOOWVSOOSOSSOOSCOOOSSOMOSOOSSOSOS OOOO &— Hea fay Fey Dey 
DIODOOO DO ODO O VO VBWOOOOOWOW9O9O900 0] My Pay ley try 
DIVOOSOSVSOSVOSOSSOSOSOSOSODOSOOSOSO D Pe bey fay Fa 


% % 
% % 


* HHH HOOK MORAY RRNA GEaEMS ROGUES BARES HHH MENOHHRANNASAMHAWNHNOHOKHRSSEESH HEHEHE HE MOMMNOMQMMQMMAQMNM 


OPNMTFNOF OA GMNY 
OOoooooOo000000 
OSOoTO 0000900900 
OOVO09000000° 
OOOO 003000900 
VOIVWVOIOVO3VIOSVOO OS 











PAGE O4A 
COPYRIGHT IBM CORP 1976 


578757 


EC= 


P/N=16 35072 


TEST 


WRITE 


PAGE O04 I4802 --- 
COPYRIGHT IBM CORP 1976 TEXT 


578757 


EC= 


P/N= 1635072 


TEST 


WRITE 


14802 --- 


STMT SCURCE STATEMENT 


ObJECT 


LOCTR 


STMT SCURCE STATEMENT 


LOCTR OBJECT TEXT 


wu 
Ww) * + 
z fx] 20 % [sa *% % 
oO fe=) mH O % fH + % 
uw? (=) & RaW * Ke] % + 
H a ica} Y = me DOOR Q & * fea) % % 
fa) «< 4 uw PD MS2HeY < » ei % % * 
< aa) fee) mn ~Q inex WM © Zz am + Pint % % 
Qu po | a < mam UO AGRA mm => Om * ZH * + 
= Cs eH [an & oO &@ gm Of A Oo [oo + WG x * * 
(o) pS ea mmo =z a = Furie © BH YU mz * a x o # 
1o) mm UO uI”A (©) fea] oo<x< ~ fx Fa Fag Ent G4 Py = His * fu + G&G A [2 =] + 
Zz =) pom Fo | YU > {e) N & ORnMUDA => * rie * Oo oO * 
ei my Hu Gu NA WMrd 6) (e) Amann Oo OQ & Qe % Fa *% 4 oO E4 % 
Zz a Oo <2 O22 NW Zang Oa w — wn wn Ww) UO maa * fx * <= wo << * 
| mm 8 fy Be GH HA HHD> Atm & MS Rm BRR G&G ip} w Se wh roe) Om + o= *% mG Wh G * 
«<< wy mG em eqn RA a eS AWArM aU AQ E> Re WW is) UO * 8 = *% eS ff OR <« + 
Be) own BH We AQ « See UNH D SS NH AWAMaaaet A ag mas mM OG eS & U % Om * Py a wo et 29) & * 
U &S umn wu z= Aw 220 D & OC MQ HBB eh QHGG ate RH AD <= A > OU i + EO *¥ WOcre MOe < i z % 
on Aamcty NO t{>h OOoOnR 2M Y to) > 2 fra Zw AH AO H A m es | + <a * W Oe mOQK < > * 
ro) mMMN« Wm DY Or QU mmwDH hy aBaaGDO OMOHMHO4ZO GMODrH “4M ay) <a CUR e % feet + GQEO«MSZ SE = HIM O x 
Zz RAW Onmweim He iF} FtM O AHMONOO 8 HB Hem MHOme OG beg a @Y Ho * cafe) + Oexa# Dp KHOe OD NA YO mkt 
Ngaaqg AGCONO <1 < H AaAN BRAY A fH Hw OR UD & AH AAOO AY ORAENUNM * Aue %e 2a «ao mG HO Ha 1% 
! AGA « UO Bt DODWN 2K eOHSG wWROSR A AXtKRS2RHH OQ 2m Ae Bee YY BSS + Oc % MeSH shat Bud +e 
NAAR 4 NNER OS AHO S22 2P 20D ROO RBSWRQDOHH HOD ee AMY MHUAR DNwWY UNZAS2WA OG * * EX «G Bir = EH wt 
Q MHBSQAQONAS AG ey eS > HAH DOADS QNOHNMNAGRWAQMMmAN<eMOn <—<cct> <2 ae WOOCOOD «x Oo + ont fae *e Vege Het Ho St KH 
re] <KCMUCHHOUO NWO NNO Wo OUZzAMA APMAA AUD FO Abe MHz ae MY HO NOHAMOBD ~w * Mo * HA O 2ZHA Of GAAaM Us 
oO GHA GO eee, <A OOO HMO OOM Geta GAQMMROmW H H UOQ a3 * % Ett OM Det ODM AiR * 
zy COSSZHRGAIOHHY CHO GAMO OOO Be HAH HOA OC HPWH & ke Yt mE BHO WAWU HA % az * BOG OAM mime OF 
t MaDDwcH Hae OY [an Feo} PRSSEUASAHZABQ Z2RAMQHNG 2A GlAC4ZDHO 2H AetHHEHNnoO * HO * Oo O UO Oo H @PDpkm Ht 
wel 3 OGOORKEIWNOOHHMONE UCM DAMMOHKAUNAMOMNUEAK SHAM MU mH ce yHOMS BD PDMOABOHOR % o<t %* CRs Fe Fey 4 OoOmnmnpry + 
Oo BAOU AmMGAUUNHG ww & O BM RBUNMHGDN GHG Season OCe: MBDecmes fe Sa eR ey et Steet Oe OG * Re e * UO wWB@AAQ AZH & ms ae 
OohyMA, iG BR Sal AeEOoHO Ome OOO QA BS AHH Ae >] Q 4S HEI —% WG BH mm rie % Geiawe 0 *% wMmOcataese MOK BW & ot 
HDOPRAOQRAARAOm ANDAR Qe BPO Base Aee 2a WA OY Boe oRmoR a BORA GH mDEAU mp A AQ mE Ay 5 2 Waal + O28Mm0OGQ WMOWOG HW Renee D+# 
ZHAO HAH SS er Or UN RH NNN NSOnS<KIQHNANeCAeteQMNSPOAKVAGAEeOOUNDBOUHSGY YVH <Neynmn HGS + eg kdr{ oO » % COMRWAAORRMy BSHHHO Hs 
OR ARNMmOURmEMamEOONKah UNA & HRA HOARMDOQDABASA GMA GMOARzOOReHAOOCOCZHAUA2RAE 2H OARQADORYVUGO * ie CQO & %* QADMDOAAAMADA aamy@ae wy 
QNNNGAUGMMaMOUCUIUIM +e OU GF HUNG EH OM KEG eS SE UNOEy ehee K QU CeO HHHOWM GO RG AHO + DRMBo 2D %e RAKYVOANGGKOUANM ASBHA Gt 
% WHOM Mm * + 
* UR = % % 
9 Rd < § * * 
+ HaA<E * * 
+ Hibie * * 
* GAs * * 
% = A | * * 
@ * A oO <« * * 
a * RGeCH Mm x% + 
Qo + fap] * NO — «6% * 
UO+UM OG * HzEuny j oO * + * 
ANAY e ~m Wh ive) * sy ae am ~ x > * 
AUANQ Ww ~ mG & % + cea = + Co) e™ on * 
GAWA LN Gi om ~ G ~ - 8 2 4 * Hic + ~ m CONN * 
oe: om eh MAIN Om T~AM MN Mmw ™ wn z+ = a ~ Zz * HOHst & % Qo o~ Q waa * 
GaN 8 Gm ee OG Rome, Mm GO Moe ee GG eK NN - = Qm_ - Oo * = AN * HD2Zme WF AG 04 mG. Re ww + 
QO et#rwongy mw Ko~ SS eG =e eo “are OF ~~" G@ G + + ay + min te) mQ —m 0G x ZOOk D Mm ww ar woke + 
OCOAQt BNA eHik,O & “QQNE Me Ber emwM CO ey ’ wd elim BOOM wa BOrmamG MQ Re ON a ee a * mMAaAYQA CO MQ +* <= & <—+ oe Conc * 
OHH DO WHADSTAaPrMmNNUO 2GHADUG AMM H .OF OF OR UOUGRUGmm.~OUmm ECO eO#F QAO % O* Ongmimatn * rcs] % PH wu He @§— HTH At 
QHHGONRSNS MOM GG © WCOHAINP HAMA WEE UOSAMNNEANAND WR OH wee WM BNO 2 WO WSR DA eH AIMED WN BIN * =@ 1 Wn) % Gets BOM GBWOrckouc wor 
© VUDU~GOUED.s GM WMMNHYMOKNOUARO Me w YORIMOO QO WAIN ANE RK EMOANETINMO WGA WOAKG ef OC SO WOO * H a 2 RQAAM aq COM weIMAe DASrMAGs 
SO U9 SD SE 00 0 BH og td 05 05 od Et 0) HI UN OK ON HYMN OS OG RG § HQ GN NIG 1 SNE PNM ITOH oOnR * & AW a) He SRHUSRCLOUTHVGEEOUSEZ«MAH I oats 
* DWN z= a 
4 * GOO Hi am + * 
Hi res] ~ Ha H = care > * @G@ a ano + 4 H * 
SRONe HSR BASH Ect ica Poet ric te 4 e 4 ff BH2aH = = Hi S SMS2NHHSHR@ HRW RZHsSH *%* OM ae + we HN HN QAzZZQAHNW+* 
Pr>Pr> CUMOPE > SSE S>tUMNOF ESP Poop pPpEPANWAI>SPEZENEP SBP BPP OP RAS So>>k2zSMNOSPS BA Se Oe EN ee] * oD bp eF & SPORES ErOQHESZ PP>PZzZ>dt 
SSB QOQSGMBOLVeYUNQNBTOQAQHOQVVY MOET VBVSVVPKONDQVUMLNSKN IS CSM LVMNMAMHSSMNOaSQNSMOVNeM BHNVANMYsM *Yt WY Ay WU G&G * Ss BE ae ae 
* * 
“a oH * toy - oy 
<a — wae % *¥ DP A uy * 
law OG iy fx4 KG 2 * m Oo Oo = N + 
ca To | Q mm RG * * 2 wv +4 mm a * 
N UU few) Ast RHHHHHHHEKHHHHHKHRHHHM VU U == = % 
MOKDOTAMSTMOM DNOTAM FMOPMDAOSCNAM PNOP VNDPAUM FMOPF DNOSCAUM SIN OPHONHNWEK NM FMNOPY DNS KVM PMOL DNDN FOP DHOSCAMANYEPDAWTNMAMNOPSDHAWEAMINOEDHAGr™M+T 
DANRDQOVO CQO CCC SCP CK PE NAANANAAAIANNAMMMOAMNAMNNAMNMNM 3 F AIFS TSI TTF TMM MNMNIMNNMNNIM OOOO DWDUONWWUPREPEPLPEEDDDDODDDDDDDANKAAAAAANNAGVOO0O00COCOOreTrer 
WD DO AAAAARADAAAD GAAS AHAADARARAAADAAAAAAAARADNHARAAVA AAA ANDAAAAAD AAA RADA AAAAAAAAARAAADADAAHAAAHAAAAAAAANIRAHAAAADAAAARNARAAGOVIIDOCOD9OO000 
A eth meth wee Reh Both eel eel coed ce week ee eh ae ad 
ANAW NON N Nasr ON N + co) 
oOwwstst Oo oOo Oo oo F&O oOo Oo sg 
CARA 2 oO OQ OQ & Oo oo é~ 
NAANNN Oo CO io) ON & O oOo Oo fa) 
Uwoonmy FIAOUND OF VUAN OURS HIU UQhieOos Uowwod0 Ga «< Oc Oo WOWWOWUWUWD woowWnoD + z+ zrQo r zor - ZONOYU 
so] heel @) DODVYVOD Mone AQADNASEM AHOOWO Yoood NN = Os Uw WOUROMFWO oowono YU Y oOFD COC OFD 2 OOUtua 
aArYEaAaAg OAtgotr cOnnA DAX-OFA RAAGCTFA DBDAARAA AR A OA OAR AADADAD RAAARQ @® @ OFA Oo OTFTaAa Oo Atork 
NNANN ANNES NONNN NANNNAAN NNOON NANNAN NON NN NN NANNNANO NANN A N ONN CO ONN O ONS Cb 


DDODMNQTODOO§ PDK NAAM OPO OPSC ST PODPOOSC TS AME OO DDD CPO DOO AF OOOO F HARM NAQAD DDN OAN 
ANANDM dODDO GE COWDDOM AOONINAN T0909 DNOSBOCTANEANRK O00 CHAO hdOO GHA wyaONAODNMIDNONG 
PFODDONSFOOO0OM NOM 0 OONTODQOTATON OOPS OP NOVO STOFTE POP OPP OUOUNDOCEPONVMaA tre sZwoOOTOTFO 


ONO QAO GVO TOVUON ON OO LEIN OSEAN SO LHAINVO LODINOUS OD SHOTSFOYUDROIWNODASYNNDLUNDUNOO 
BOOTS MNANANAN MMA + FATT TFUNIMNIN O00 9 OEE PEE DDODHANAINN ft Ctl oe ODOMMQQBVVOVVORAAwWAWY 
DV KG ALG KY AL KS AS AT AE A EE a cK OS me YS GY EE AE Loch cE OE GL cy AE Eh LE KG Kh GG LQ EL QS SC QC Gae 
NN NANNANANANNANANANAANNANNANAANA NA NANAANANNANAANAANAAVANANANA NNNWANNAANNANANANOA 
DODOOUDO OOOO OSD OO OCOSOSSSSOV OS SOSOSO SOS DOVO QDOOOSOOOOSOSS SSS SSOOOSVOVOVSOSOVSNOVIVOOO 
DWDOOD9DOVO9Q90099 9900902909090 90000000090090900 DOOOANOVPOSSOSS DOOOOSSSOSS S9SOSOSSSS99No 


OorOozrrorno0 


oar aasrwodtoue 
fy Pu fuyhCOOOOoD 
Coc cmMmM QaMM 
NNNNAANAN 
SOooO9000°090 
DOOOVOCL> 


SPIN ASST IFN EMOTO T— ADS 
NANOINENNANDNRHONNG @thki yo 
TrOOONDOTOVOADVDOONM gD awe 
SFPOrCRlFSAIOrKPSEMATtOIDE KM 


NO SMOTOCANS DONO CRIN 
ire Feo [se Foo males [oa los Toe Teotoo pestle foerya lee tes pe Teles) 
NANNANNANNNANAANNNANNANOAIN 
DOIBDOOOOSVOOOOSSSSS N99 
VOQVOSOSOOV OVO OO OOSSOV99O992O 


*% 
Las) .- 
Zz % * 
a % ee + 
=z 3 w % 
oa oO % % = * 
Zz 4 Ay Ay % Hi % 
aa! ao oO oO ~ HH | * = 
Ee YQ n HX | + te 
= ~ =z rom) Ww fee % % < + < 
(o) re) p % fea Zz (o) % U + Zz faa 
fo wo Po (e) Ls | Ea * % + Hi ‘o) 
=O 1d) | mG ~— a MH Oo *% <S 
& Hz =z moO et (ee H Q te H % 5s eo) 
< a Hi Hoa = 3 <a H Hee x Mm wmU = 
= H = 4 io) fea A west ma 3 nnn mn 
SG Be ak HI aN w fry few = Or oO 3 mw F HO { 
Oo OW =zU % Y e WM 9 NAMawK) [@) od 4 Ge Ht aan * WHR FA & m= 
xy W@W UD fe wr] WE Oo Ww fe] —< OG oO Evi few} * WMG GA AI Qa 
tem YQ wd ee oO Qu RAARAA mG OG fee mam Bet Gm * AQ A A RA [ee] 
ie ZOm cay C3 Fe of mam = & G@ feefee|eet* <7") isa) (o} Oo OF ® QR % GR Q th <G oO 
O AmHaw oO wMmHo & A Gem GU OO O0000 eT 0 9) mam Une em & * Ac < Oo Pate 4 &1 & 
&% QOH ki z co Tew A O OO m& FH G& U & BVVewz i] mD> & H ha D> & * Aa vp} ca i isa be: 4 Zz Pa} Pa 
= Dim aA fAUI& = <2 @ Ge 0G Q = & cat i] Mt & QH e YU % eGo G a+ Dr rao > 
= MAO H eH a fx fo) m > BH AQ G& nunwmwuw wy oO an “— Axe cd = WwW YW} * NONnAMDAaH noo oO OQ 
MGAGANQ Qa AQ aq We ik He 6 HHH = & ety E3% 3 Or wu wm % B@HeHAdOdcoO WwW U muy 
Q Bw GG mo «te Ga A « Oo fF Aa WM O WHAAARHO DD G&G | OMNnA M % OG _ % GACH QHOUHMG& a La <1 Oo 
<—_{ & MOO QO BIC) Oompeaaam G@ oO & & PrDDPeG oO FO fe) OF # i Fe $x] fx] 1 * Dp UO = Et mwz 3 oO OG i 
 mmOm=e be 3 fx] Giz] =a wy Aa OG O ica CO H & MWR & GS HWIO A Hee fon) NO + HSHSCHwHaYO AHOU H eds] (oe OGE4 
= GG HOO e few O 4 G@ 4 a @ KH BH > < HH UD A ARS RYe <— & we He % % a On *% =WUVAmewzH=zO | Amy I > fecTan a 
2 Ata qo CO RH OO RMA fq Ow WM <t «< & O 0G fang 0G 0G CO MW «ha CO 2=** AMG E+ ==; % GMCS SUS oyeM =w@caGM On oO w 
~™% (oe) GB OW & non mop Hf S&F A ce HEH AH Oo BH SHO = Gre HO uw 2 % WH mss > Gm > Ob 
Mmmm Mme Mmmm mamma WO GG HH &£ G&G KC AH HF — Mamaia <x AAR NMNHY Ds HU PAHW % A ea Mca Pevjatpate--feljerpatratestrelic fecge-] Cs ierpe-Te<Ts7 ev) 
SOROH FAUVUHA MOMROHAQHOH A mam 2 =< A RQ Fw OQ So Cegtaele = 4 O FH H 4 HR volta ha = U2 RG %¥ DNROHOAGWMAGWADDOHDHDRDDERONHNORHD 
Ao GW Weed IS Gs mG NS <—_ = © & mm @&@ WM A GS RBIRIGIRIO Hest O CWRIOG rat % BP GHAMURKUH HAS Se GHA WOO Ge 
HmeUGW MESON AGUGBMONMUGOUEI Au = Ww A SB mA O AeAAARNAH CO A MXM KHAO Oe =U w4 % DARISZOSZO ZVI ORR 
MmOrR VUNG NMORUGHORIN TG = oO CO << fy HN €& & UUYVOUO & K A UYUaAOH % % AHR Om F NNNAAHAHENUNNONSUNNNSHOSS HOPS W 
0O mem MN wm Ww GS &G ww — WW WHOA: %% ZO GRIGG % 
OH = UG A = => 2 GS WN MUYUHO % Ours e411 3 
% % AY @ AME % 
% % MQ Ws GSA) * 
% tt G6 OmMO Uat=ENn + 
HH << mwHUD SG + 
% 4% As foe} aa 
@ | Nt @  % = WHA Ute NN foe] foe) 
+ Dp ++0+ % % O Drea 4 aa + + +O ees) 
rea) - m mM N er ee ee ee ee ee ee ee ee NO A A A ANAHSeHA % O Enc << we et # Mom-ecrngaoMen N 
is) + WU YO + > > > DPD Sp pS D> SPS SD 2 D> ANNAN DP D D DYPD,D Ht % ~ i M2RO WW * U40MN4e"0420R4~- ~ 
a [5] Q a Q nnonnnmnnnnoan Ww Mmmamae MN MN NMNNNDW 3 Q BHA Hen mm ££ AMAYUM4+aAMmNnve + 
hve a fy 3G wn | AWWW Ww Aw ww HR wm Ne eee ok A A Aeeewha % << Ge ZHuy = *F ON BUGQAUMMmUMmAN [24 
Vv) ei Fesley §=UONCO OG tb Gm MW BW Be e@ Ge mM B@ GUM Be Ge] ONTOOH mG GG (1G % H Og Om #F# + + GH SFARGAVLSAr TU U 
Wom 1 ae et +O, mom (a) p> rprorDvrDFP DV DVD DOD DO DD at tees gf DD FT PDYPGpD  %  etem IAN — # RAG SB 8G EO WG BO NO ame Q 
eo GM fH ew OMG ew GM, wn BH Hwy HH HoH Ht HH HB BH & waves A HY eo HED +X = & | + WHKOT VU © EN au BA Ome OG A 
CO WMG — Ae MUU Hy eo HG = »> » ®e® & & &* @& & B&B & ®&» DD]OAMDANMK «& & ww» Bx we MHH > Klee HO ae % MGBOOMNT MT & ete aw se SGA ete 
OMN a + eNOQACNM OQNH Oo =e Ye Ye Ue Ye Ne Ne Ne Ne Ve NUMNUINIUNIOUs Ne Ne Vie NS OM BK f&e  eN URN MO He BO 8 we IQR M aQORes 8 N SNA 8 
PRO eM KWMHOMMAIO WMMOHO WW ORR: OHOHOCOHOHOHOHCHOHOHOHZA HA ADEIRIOHNHOHOHOHHMS OF * Hi = xe A » wok OF COMHGOHONHMBHO VQPO cH 
QHUASNE] HASOQNNRHSINNRHIN GNO QZOZOSOZOZOSOCOZOAVAWStAAOSVSWUGMMMQSQZOSES|NHONH UF oa (Cf cate | % ISAS MRO HH GAS QRH eSB HsINOnINS 
© U™GOBET ase 8 WN GOs G~MO HOO QHOHOHOHOHOK HN tSHANHOHOHOHDDDDD.s HOHOHOHOUHHA 44 ty Fas Fe 2 1 * WOORGOCO SO vw VUUTMVe VUTUEZKU0B~wWOVU 
768 GEO NO Be QOQKA™ OA ONE SoS ets le te ee ee oer eee eet ee ee * % = << ea | ils - +e Bl INAV, OHMHNWNUTOY EHH <~—E10 
a 4 > os od od > > > <~ <$ -« *#+H%= 1 O wn ma + 
H feo] Heke Ga re] NNNNN HB #t#H HH D> 9] tH H OG OG 
Ry E20 SE H2EA HS [3 | HH HH H a H = = eH Sea Ssscre a H 2 HES2EzH FHH HH © BH + SESS RHSHSRIOONMSSTSEMOOSE HSH Has 
SCcUMQO> BSQS>S>><HUM0FPstUMO Ms = 3 8&3 2 = 3S PperPbPr>= be ZPeS>pr>xsimeeD G FD a 3 + Pre Q> > E> E> >> a> la >> >> fyMOaTUMO> 
SBNQQHVSVHNQnUMABVSMBOayYVsTmMaAHD YVmM ononmonrnonrnor ONONOVONONON BEE HONONONONO SEaaaes : = = m= As | % . SEHBAC VGSSSBSSeSSSVSMNoOenNQaAnwas 
4 
[co] fav] 3% MQ P= | + N 
sc om BZwHmenwenod ma wx AQ FW © mM ad *%+ D2 «< %* RAH ; 
NNNNN NN NNN NN NNN NAN NB %HeW) o) = PG 0G0G ic?) 
= oooo0oe9ne9noaooo70d 98s oOo 90 8 OW % % ong r=) 
P| % sH HH H HH HY HAH HT SS HY & ww HH & Hk THERHRERRERSRERRENEESS OG 
++ 
FNM STNVOE DHNOCANMFMOP DHNOCAM PNP DDNOlAM SNOOP DNOSCAM PMO DNC AMAMNVYPDVHNVWSCAMN SNP QDKNOSCAM TWO DHNOSCAM FNVIEDHWSENMTOOEWDWNOSCAMAMNOP DMHROSKAMIMNO 
DWODODDDDDANNHAMNAARHNOO9O O90 OOO CPS FEM OENNANANAAN AN AFI MM MMM OF) AM SF ae TT TMMM MMMM NUM OOO VUUVO WOULD E PEPE ELPEEODDDODDODODOIDOAAMMHAA 
PPP PPP Pe PPlPrePllrrl DODO DDDDDDOWDHDDDDDDDDDHDWDNDDVWDDDDODDDO AD DDDDNDDDDDDDWDW DH DDDWODDNDDDDDODD DOD DVDDNDDODDODDDOGBODDDDDODWDDDGDOVEDDOOO 
oO - sar NCO << @ oO o0ocnoelUlcronmCUlUDCWIW oO eo Ss - N DOD ODO OKAYRMO DO OANSANRKATNVUD UA AUN © 
ro) < Nn Qoe ro) ~ ooo oo9ooctoeoosxz ©& 090 (lO OK NYUUA 2 OQOWDOOANAAANOMMMN™ em J 
rm A AA 200 OQ ~ oooowveerF FN OS O&O 9200 0 OFMOOO A RACROCAAAAADGDAARRA Qa 
So N AN DOO N fo oOrnanwoo0oe90ce7eo ao Seo 8 oO 9 0O CO OeNteer N ANONOONNANNONANGAT N 
cree) fe MCOUMsIA Uo VsFmOewndoenosaoewH oO © ODO DO DO WO AOEYHOD © DOD D© DOONY OO BO DOWOKDOUWOMOT?YOOMT® VS co f 
on IN WMINMkmOd res Fee! moo YNy”vs VY UYU VY VUVUUYU VY YVYYUVAYD VV YU UMeenwO < HO OOD0D0TRK Kr ONUNT KOO Fea ca fua\O 
aA Q AADYUYAAR Qa Anrwoendgenwveeweneasa=™w® Dd DBD DB © © OWOWDOOD © © @© Orrrer k SZQ AQAAARAPRraAAAArPrAaaA Oa OA 
AN N NANNANAINN NN OO ri OC TO rrr ONIN ON NN ANNAN NANNNANANANAAN NAN NN 
QMNOK LOwMNANODOOMOK-OOMO0KSs NON VMVTOQUMOMNUKHYRQUDMVE= VAMMMNNULURLUPUMUDDADDA N ADADDHADAGCDDOHOVDCWOWDWDOMDOK-OM0CeKOn 
ANON BONUNNONNANOMENNOM aT AND ANSTAATAMNNAMNNAMAMNNAANNANNANNNENNNANANO NONONONNANNAN Oo QDADNMAMANANANNNNANANAYOM COOMELON 
ORIN UINOODDDOCOORINDUNOHAVUN DOD DOCCOOCOCOSCVOVOOVOCOCVOOSO Kd EK LODOOOCOSCOMDDNDAD HO UDDODOVDOCODVDDODOO OAH Y LMU <tc 
PONTOON AD0FAPTPONSPEPONS|] DEO SNAWSMAM2MIWNN sO AMM -=MVMNOY VY VYUSMAMNANVSNFOOOO oC WD FOO FO SF FODOSOSFODDDOONTOONT OD 
F+CHONS CUNDUNDAINAODRINSO COMO FCUNS SONS KON S COUN SROUNSAUOTDOUDCWDHOWCDHIOUWUUND ADO URIS CLOW UNDA tT COUUNDHNIN AO 4HOCHKO 
OOO DOONAN MMY YUURRAA SPAS a wMOCCKOTETENNANMMMMasTasITMOMOW!O wo MrPPODNNN< La QMNYVVUUROOMAIRIAW Ewha 
DOD DDOODNODODODODODODDOWDDO DOH DODDOODDWDDDODDOIDDADAAAMAAAIAAIMAADIAAMRAARARAAAIMNAMA AAAAARAAAAAAAARAAADRARAMAAAAAHC 
NANANAANANAAINNNAAAANANANG NAN ANNAN ANANANAANNNANANAIANANNNANNANAAINNNNANNANANAN ON ANNANNANANNANANNAANNNANNNNANAAN 
DODODVDDOOVO DOODODDOOOODSSODON DCAD PTADQCDOCDODOSSOSOSOO DVO VDOOOOOOOOOVUDOOOSSOOVSSOSOSOSSON O DBOVDVO GOCODOOVVOOVDOVOVVOOOCOCNO 
ro) DODVDCODOVOSOSOSOVV OVO OOSNVV9SOSOS90O 


DODODVODOODTGVOOOO990990900 29090 DOSOCOOSSCOOSPVPVSOSOOOSOSOSSSOSOSSSSOOOOOBO9OOSOSOVoS D> 


PAGE O5A 


COPYRIGHT IBM CORP 1976 





FC=578757 


a, 
P/N= 1635072 
STMT SCURCE STATEMENT 


WRITE TEST 
LOCTR OBJECT TEXT 


I4802 --- 


PAGE 05 


1976 


COPYRIGHT IBM CORP 





EC=578757 


P/N=1635072 


STUT SCURCE STATEMENT 


TEST 


WRITE 


OBJECT TEXT 


dA 
14802 -=- 
LOCER 


LD) 


Cone 


ha 


© 

=z mM ho] 

eS Y YO 

4 < << 

Ww a mG 

<S GS Gen, 

eo} Oo Mm 
©) RH moe 
=> Wo~h 
(oe) | Wei 
z a [e<t =) Ghle 

= QQ BOP 
t = SY 2H 
& oO wey AQREO 
Oo @& mA YO any 2s 
=a Oo Oa OUR DAI 
Go @ GO be 5 | fea] © thE 
MW BOoatyQ GOW MGs 
@S UN wt MH SQHO mons 
OAt A wac Oo Pua Fy OG 


URQOOCOQOQORRYQEARGOURRG OnQH 
UGUROUMONM NSHOSwmOse HORA 


om 
OG 
[e3] 
PRIYOUVWVOHNRHSO wm NRA 
SFNAKAQPOHHRSRAINE BUN Gn 
BOmeaeGe OUUSUG~MO i rvAorcdcdo 
“Ht ESN OMA twee 1Oe | SH 


B+6,SCTID 

B+8,SCTID+2 
cisbe 
+2,VR 
1,VRD 
VRDCB 
E 
R 

CTID 

CTID+2 


x tH a 
2 8 ASSONQSsy4 SS] 4 H 
NOBZSMOS>>e>Prpr<cyUNno 2H sia 
HQUMYUMR=SSSSSnNqQrgnuymoany 


ale) =a 
Hic Pua 
<0 is) 
=F] Aa 


a 
* 
ae 


IONAL SECT 


NN NN atl on Fn 2 ee ee AO 
Wo ti Ba Holt Wo Hol wou YO 
Rm mm; eG) mas & mma wm 

a ® eek 2 =e ee © =r ee Of 
Nou ou hen wi ti UAM Fi HH OWN 


WRRIWM Ww ele [oa fea) ae WN est U7 
QR EVCU EJ EI Ete 0 Eat EI EI aYQArHHR Hee asa 


Pa 
* 
* 
* 


eeewdq#2 8 @& 
THe QNOORn0O0MMOs © SSH ahike © HNANHIQNR 
TFODTMNNKNNHONNOINNO NOWOCOr rome ky 
ODNNSONNANOe NOT POD OOCs OChOMMOMMOOU fy 
Or rOQQDOCOOCHOMNOF TON TF hHONNOQOOCOOCOOkR 
eeewewvwd9seewssenwv @Fowsewswwewe®wvwew Fae ®& 


5 Fag Bay Og Bag Fy mS Fg Fg OS OG By Frey OS Bay Fy og cy Fay OS oe Fis Beng OS Fy Pay OS Fay Fay 


WRITE PARAMETER TABLE 
SCO IAGO II CC I GIGI a i tok kokakok i ai led tok a ak as ac gcde aca aie ak ai ak ae a ak aie a ae 


ME A RR EK 2 aK 2 ee 2 2 OK eh ae he fe ale he ae fee 2 ok oi hee 2k fe 2h ake ak fe ae ake te he akc ake fee ic ae ae he he ic fe ee ae he ae he ate he ke ae 
ABOO DC 


HEHEHE HA 


1 DADs ff Pte PZ ae I tt | OS | SN eS 
fofeeleeTocfeateele<foelot sfecteatselsctealesfocd Tot icafecfealealeceetsefecd<o] a] sa) 


T48DCB 


DC 
DC 
COPY 
FE ee 3 a eee Re a he ee a ee ee ee ie i 2 2c a 77 GH a Ra RR Re ak ee a a ae ae ak 


MK AR CK ie 3K 


DCB TABLES 
ME 5 Ne A ee A A 2 a a IC ie aie ae he he ie aie ae ie 2 ae ke ate i ake ade aie afc 2k oe ake ade ke ie ae ake ade oe ale ate oe ake ae oye oe ie ate ate ake ade a ake ke oe 


**¥%** DIAGNOSTIC DCB 


és] 
io) 
aa} 
a 
a QA 
<< OG 
| Oo 
aa] = A 
mM ie «1 
Q a U 4 Oo 
U WoO Q Oo = n 
Aa NhwW RG wn 
fq w ce | H <unnwmA 
UO [oT eo? e = Rea 
| ABM <= O <sHAA 
HAQRAADA fo = YQRasmAQRA 
NAY BOQ m 4 OmMecm 
ONnNMNMHN Uc a HOE OW 
A0d0DDoz a COGUMADD 
T) 4 Fe ce, < =s = WW 
CHeHHH SHE Q BHA) | cH 
HOOQOO Dag | (ejele) soo 
ASZ2VZOMA RG Fey yy MG 
* 
* 
+ 
+ 
* 
* 
+ * 
* * 
* 
* 
cQ * 
~ YQ % 
eweeswe ew FE QA om t ow ) 
COODCOCORIY ™+ NO ew” 
olelealelelele>x 4 WwW OF OCOtet * OF 
COOCOOQCCOrH oe cor m oo!1IiOiee 
NOOOOO0N < ow UU DO#X KFOKFOO 
eseweesves ™ mG emt FC ee es “es o 
PS Od Pg Og OS Od OS KG OQ <E ei OS OS LG KE og KL fay Fey 
as | 
nq Co 
P= of = 
ty) OG 
OVUVOVVVD Qq yuyu Oo YUOYUVOYOYO 
AAAQAAANA SG AA & ARRQAARARRARA 
~Q + QQ + © 
O + Y + OU 
Q %* * a 
wo ¥ ww %e & 


%H KHHHHKHHKHHA 


HRHHKO HHH BS 


HE Xe 3 OK Ae ok 


ID DCB 


xxx READ SECTOR 


fey 
fy 
H 
A 
{| 
uw) 
- 
A i 
Hi ec 
% = ~ 
oO Oo 0 © 
e tH O 
U ee fe) 
AW) ©) a 
mn ie] 
se] mG = 
Arm H fx 
cA Aa = 
FA i Pa! 
oot] a 
et 
A PG E Q 
oa WO eH - ca} 
U2 fg KG a] 3 
OS YW aA eo i> | 
oO GH A wm 
= AGMA <a 
YQQQQAR0H Mig a 
Fo Fl fe iz] QO 18 = san 
MmMMnwmww UG AQiiK e3 | 
DmDHoH=a2 Oo ~ <= 
Q Hee ac 
SHHHHAWHO aad ™ 
HWOQOO Dak Ri ' 
UGUAsAsAmsoQn v7 Qa 
* 
% 
* 
+ 
— 
weeeewwe DQ + ef 
BOQOCCOtTH * WS 
OOoOOO0OOH * OO 
DOOQDOOOO YN Oove# Fee 
Noooooon O0Oo000°0 
eeevweaesw ” © se eet vo 
2d Dd OG OS Og OG Od <I 2 od OS Fas Fay Cy Peg fy 
MG 
ica 
YVYVUUONUVYOO F&F YVOUOUYDODOYU 
AAQAANRARA HM aANQAAaAAAaRA 
mM * © 
YU # OU 
Q *¥ QA 
WY % MG 
HHHEWN 


DOM OWDNO CNM PWOE® DHOOM FMWVOM DO SAM PNP DHOSCAUM FS NOP DDO AM SUV DHNOC AM FOP DHNOTAM PN DHE AM SNOOP DHOSCNAMHSNOP DHOSCAUMPDOM ONS BAND AMNOM DAO LN 
COMO) SP SP PS eT PNM OINININ NW OW WD OW DOO PEEP LEE ERLE DDODDDDVWDDDNAAMNANADR ANDO 019000 DOO 9 CSS MTT KK ANANANA NANANAMMMMMMHAMMAMM Stars sos 
CC NA AONNAANA ANNAN AIA NEOAIOANANAAAALNAANNANANNANAANANNAAAAIOANAAA SAAN OAANA 
Ded eed eed eh eed eee eel pee eh ed oh ed eed pel eh el eel eel el eel el mee eed ee el ee ee bee ed ee dh a el me Se eh eel ee cee ee ce eee eel eek ea el eh eh ee el eh ee eh eee oh ee eh el le el eh eth th pee th ee eh eh eth eh i ed pe ee ed el seek enh oh wt ee meh eet el ah a el el ee eh a ee ed eh eh eh eh et eh i eh ee ee eh eh 


wow O YUNZ?W®O fey fa 
- F&F OMMHM ie fey 
~ ee OAQAA Pes fey 
NN ONNNN fey Pra 


w-?NVTOOUU0UORTO roo DMDANY 
MRO DIONC PMO moO Mm 91) 
HDYVUYUYAPREAAQA DOr AMO 
NAANANNANAANAN NON ANNAN 


PODNKNDNK-—OCDDODODMNOKANNNHON 
LONODNANONANA NANOM BGOONSGONGDO 
UCDDODODOVDODAANY LODOOdDoOnDD 
TODODOFDDDDONTOOFmO0sF00 


QOt+ COTO +s LOW DZUNNVDOUNOU 
FNANANMNMN FTOMMNMNIN OO 00F EE 
YYUVOIVVVVVONVVVVVYOVUVVVVIVV 
NNAAANNANANANNANNANANNANNAIN 
elolelolelelololelelololelelelelelelelelolo) 
COOQSOOOOOSOSSSSSSSSSog9O 


=0. 


RETURN ADDRESS 
R 
0 
L 


FMTO,R6 


(FNTOO+#2) 


0 
PURPQSE = SETUP DCB PARAMENTERS TO FORMAT SELECTED TRACK N 


FORMAT N 
CALL SEQUENCE - BAL 


_ RETURN - B 


SBEASMNM 


oO 
>) 
© & 
e 
HMR HH HH HH 


SUBROUTINE 

AI IIR IOI IC III IO IO GIGI TOR IOI a aOR IIR ROI ICRI Ok ak ak kok ae ak 
s 
Ss 
Ss 
B 
G 
R 

(OIIGIOIOR GOI III I I ROI ICI I IG II IR IOI aI Rk RC ici ak ak ide ates ok ak ak ak ok akc ok ak 


1 


FMT1,R6 


SETUP DCB PARAMETERS TO FORMAT SELECTED TRACK N 
- BAL 
(FMT10#2) 


B 


FORMAT N=1 


PURPOSE = 
CALLING SEQUENCE 


KETURN = 
3 eK Re he 2 ie 2 ie aie aie a ie ake ake ake ak ake ie ak af ake ae feo ate ak ade ic oie ae fe ake ok fe ke ok a oe ak ke aie ak fe ak a a ke ake ie ke ake ak ak ae aie ate ake ake oie ako 


SUBROUTINE 


= 
Ree RHEE HHH HHH HH 


RETURN ADDRESS 
R 
0 
L 


mM MMNMOMm 


SBVAVAaOAMQA 


o~r 
wo Ry 
Sead i b= 
Ga a0 


2 


FMT2,R6 


- BAL 


(FMT 20+#2) 
Be 2 ois ae ake ae ee ae ae 2c ake a ake Of ake ae ae ae a a fe a ae 3c ake ok age fe ie oe eae ae aie ae fe ake fe ae ae aie oie oe 8 of oe 2k ie ole aie a age ake aie ae kee oe he ak oe ie ie ote ae 


2 
PURPOSE = SETUP DCB PARAMETERS TO FORMAT SELECTED TRACK N 


B 


FORMAT N 
CALLING SEQUENCE 


ie fe ee 2 hee ee a af aie ote ake ate te af ate ake ke 28 KC ak af akc ie ake akc aie ak ae ate ade ke ie af afk afc ake aie aha ae ae ake aie ae ake ake oie de ac akc oe aie aie eae aie ae ofc ai a a ie aie ak 
RETURN - 


SUBROUTINE 


Teaboedt 38 3b $e 4 36 eae ae ae He oe Oe OF By 


LOONCODNHNOhDOSPOORNOmOOHOON ato ks 
MmODRMOOMMOHOODOCOOCODCOMODDOCOOOO FR 
CQOODT TOOT hONNOSTOOARHOCTrONNOONK 
DOOSCOSVTOSV SO HOVDV OCOD OV HOOOVOORVOC OC Ba 


ONAF:00 BUDONS 00 AUDONTS OD KUHONTOOs 
DODDDDDAONHAANNANA dH aicttCetaet gma 
QYUVIVUYYQVVVVVVVYVVVVYVVVVOUQVYOIYNVIOIVOV 
ANNAANNANNNANAANNAANANNANNANANNNAN 
DODDDDODO999000 DDOODODODDDOO0D9D900 
DOD9N090900000939900900000990 2320003000 


Even ADDRESS 
R 
fe) 
L 


NNMMNDOR 


WG fa HUIS Ba OS 


eH 
m=mmMmMr.y 
>>>>>a LU 
bh 2b 2h >> aise hs Tan} 


a Bs 


FORMAT DEFECTIVE 
PURPOSE - SETUP DCB PARAMETERS TC FORMAT SELECTED TRACK N 


3H 2 ee a i ke ea ote ae eae ae fe aie fe a ae aie fee ae eae ie ae aie fe ae ale aie ae ake ak ok fe ake akc ade ake ae ake ae fe ake ai Ce aie ke ok ak ok akc oe ake ak 


SUBROUTINE 


Qo0000o0 ar 
ola lelele le le], | 
QBoOoOo0o000R 
NOOODOOON 


URONS OD < 
ANYUVOO0Y 
YVVVVUVVYOIVOYU 
NNAANNAN 
OVdo00o00E”00 
Oooooa0003 


DEFECT 


FMTF,R6 


- BAL 


(FNTFO+2) 
Wi he Sie 3 fe ake he afc ale ake ake ie oe oe ae ic ke ake ake oie ake he a ae ok ote ale ak Ske ake ae ake ake oe fe ae ode ke oe fe ake ak oe 2k ote ole ake ae ode ofc oe ake ode ake ke ak ae took oie ade ote ke ote ake fe ae te 


B 


CALLING SEQUENCE 


RETURN =- 


OE ee 


© 
Oo 
fon) 
fo) 
Q 
[e) 
> ) 
[> 
Oo 
Oo 
i) 
o 
lo) 
~oO NOOOPFOOSO eoOOod0D007 0 
Qo asao000070900 Qooo0o0°ods= 
fom Tan] OVvoo0o0o0o02 DSVQOIOONOO”™ 
og oo0o0o00000 NODOOIOON 
Ow WQHROONSODE ORONS OD «<td 
YOU QQ Ahh THY Tey be Fey By Pry fy iy 
YU YVOURYNOUVUYU YYUVYVUINVY 
AN ANNNANANNN NAN NNA NON 
a> Fete ] Oo7o0 7290000 ovoDoOoO000 
ree Tam} Qo0o097390090 oo000000 
wo 
e wm 
* > el * 
% 4 + 
% (oe | + 
% hl «KG * 
3 a OU *% 
% (@) + 
% m oO + 
*% ay % 
* * 
% A % 
% at © * 
+ Me ee + 
* fa * 
* fa¥) % 
+ * 
Wy * Ay * 
nm + tem) + 
ea) % e * 
fue - * ix * 
Qa uw & * wy * 
Aa = w * * 
<= ae * m * 
ce Hw + faa) x 
= << sf * + 
ta = UO * et + 
> in Or + un) * 
hee! wt ato + = * 
li = mea + = + 
maw + oe + 
BH WAS % Wc WM * 
eat OCG * =O *% 
SH v22=f ABWSD * m1 KG fx * 
ReHe&e WOH * ZSmHOH * 
FMMAWO MOr % Ot Gig * 
INUIWNY) fy % eq 2 es x 
+ HeOGH KGL, + 
+ ORO =m, % 
* Fg Et Fey ee GO Et + 
* NAB * 
* fjizj e+ au * 
+ eG 4 OD fy * 
+ HI nags + 
* Mowe % 
cee) + = =z=QH —_— * 
~+ Ne) * Goma ONG N 
iO + © +> * Os&inAD> + +* 
+mU m * easy was O HH 
NmUAa YU * SamQgwOoOnuU H 
+UOAm BHA * WOR yt <= 
ORM Bm + QmPeae Sh Fe 
fy lGhy & Coy oo * Dame “ * 
Hil w-9oM0 wo Oo * m= O ee eOLOm™ * 
BW eG CO Q BeNOHmm * 
slut wom] a ky «<< ea m +* 
WIMOHSSZAHKR Ga 4 Wu) * 
WOAQGH=EOOZIieg ++ te 1 * 
OSGi EVIE MingknH og & © * 
t$HhH WM = = *** 
t= €£ O (| a * 
- %H#H SS & med 2D 
™O00 4920-4 HH & 4 GH + 
S>Pr>retr>>ct YO #D OO DD << ma 
SVSSaOosesamMMA *€O fw AR UO Ga 
eG * 
Oo *#OM + 
ful HO * 
Fey apt WwW) *% 
a) * * 


DOS0990 
Bods09oo 
990959990 
UMONt 00 
4iy¥QOOOO 
JUAARAA 
NANNAANAN 
9099000 
Q9095099 
© 
z z 
Hi H 
< z 
im Hi 
nu < 
wn mG 
HO U 
me 
Q ro) 
Ala z 
a 
Ad 1a 
Zz 4 
mG et =) 
Dud PG 0G O5 
EIE4E4 C00 
FIZ at mre 
SVQ GH YU 


SSZBVOMSHAO 
Hamam Bate 
AQOOmV00hG, 
Nia lem UO 

zr 
+ 

mo 1Q ea 

OO QO 

AA Q 

[eof 8] m 
CN Bea Fea is <1 
- =e om BO om 


ele @ OM. © MG 
HINO Ghing «<« efx 
ZsOU WN} OAN 
ZSBODHO OOHO 
MWYSAINNOR 
We = k~ZOe 
GPS GH EE OGG 


HH a He 
ZS2SBH HAH 
Pe >ctOUNOS<tU 
SBBZVQAAMSMA 


ei 
e a 
= =z 


feats 3 He He aE Se a aE Se aE Pry 


MOP DHOCTNGY FWP DNOTAM FUP DDO CAM TNOPDNHOCAUMNTSWNOP DOT AVMAMNVOPE DHNOT NAM FIIWOP DHNOCMNATNOPODWHOTAMTNOPDWNHADENAUM TNO OND KHAUMFN OF DHNOKNMHANOFDWHOLFNMTS 
SENN AQAA AANA ACOA MICA) HO ON SF SS SP PT IT TMM MN MN WIIOW WO QUUODOUOU OE PP PPPl PP Pl DODDDDDVDDOVOANARNAHANIMAANNS OOO O00 90 Ce ENA NNNANNAAAMMH KNOY 
DONDDNGO9 DOO OQQDO ATO DODO DODOHBDDDWDODDO9 990999099090 990090 9999 9999999999999 990 O99 9999 9000 C0 0 Peers 
0 0 0 OB EO 0 i 0 0 0 0 0 CE 0 0 0 OT EF FOE CO OPO 


IINNANNS 


ADDDONMNNO 
BDNANANSSOO 
HROCOONDSO 
WOOO 70.077 


Cast BOO GR 
mPrOOnAMO 
man ananm 
NANNANANAN 
SooOO0009 
Soooce0o 


ADDDONNSGS 
BDNANNNOSO 
HOO9R021ID9 
WOW DOAF0.0N 


OoOraouVvo> 
cctcNMONQYYU 
aan ammMNma 
NANANANAN 
OO9D00000 
olele ole lelelea) 


NOS ON 
BY Of 
VOU BO 
NNN ON 


NIMPosrwwoo 
bey Fea <G <Q fs OC RS 
QMQAqQgmANQMa 
NNANNNANANNS 


ADDDMODMNGS 
ONNANNONNOOO 
AOCOAO0OH DA ky 
00 M019 7010.0 & 


OTtOUWVU00O00F 
QOQARAEIANA Rhy 
mAAnMmaAmMaAmMamMN 
NANNAANNAAN 
COOoo9OO0000O 
COOWDVOOO9QO0NO 


NO 4 
OO =) 
Oo oS 
oOU N 


stVU0OO +rUuUO 
WOO Am nh] 
YOQVAaA AYA 
ANNAN ANN 


AQONOFOoOoMYD 
QBNNOM BLONOM 
AOCHNAUEOAN 
wsrroNnstoszon 


OtOvUeUANDOY 
oC elo lola le) ad aka 
ANYVYVIVVOVY 
NANNANANNAASN 
OOOO 90000°0 
QO009007[9000 


PAGE O6A 
COPYRIGHT IBM CORP 1976 


578757 


EC= 


P/N= 1635072 


TEST 


WRITE 


L4802 --- 


PAGE 06 


IBM CORP 1976 


578757 


EC= 


P/N= 1635072 


WRITE TEST 


OBJECT TEXT 


0000 


T4802 --- 


OBJECT TEAT SIMT SOURCE STATEMENT 


LOCTR 


COPYRIGHT 


STMT SOURCE STATEMENT 


LOCTR 
OO2D0A 


> 
Ky 
Lo 
OG 
ie 3] 
> 
4 
Q 
<— He 
Al 
ao = 
re] 
am wo 
=» 
~ & 
=~ te 
OO & 
mG &s 
A Ff 
a 
GQ «& 
«Q sO 


SET UP CONTROL BLOCK FOR SVC CALL 


ma 
wn 
to) 
ae Wn 
< Y 
ee Hw 
YO A 
WY 
a oO 
C - —<] 
& ww 
eI «<< 
1? | 
et a 
<— 
= we A 
a UO < 
Q- 
ia UO & 
[32] 
1S) 
QR 
wo Oo Oo 
OO G@ @ A 
Ga ese e& #4» 
ee OW Ob @w 
eH UY << YY 
= Oo FF RO 
ia HH A NT | 
w-w8W os RM Uliod 
a Fey «= 
 -  - od 
msm+ms =r 
xs 
fq 
2 
WY 


HHHHHEHHKKKKHN 


QE AMS NOR DHOKAM SNL ORHOKAMSINOROHOKAMTNOLOKHOKAMSNOM OAS ANF NOM DHT AM FN OM OHO AM FIN GO HO AM FN ODORS AM FORM OHOSAM FINO OHS HAM FUND 
PREM MELLMEM DOD DODDDDDAAAANRHAANAARND S999 QO OSC GFK ANANAANAAAAM AMM MOM OM =P SPIT ST ST TMMNMNMIN MMM NINO OOOO OODLE PEPPPPEPrromnmnanon 
MMAMAMMNMAMAMAMMMAMNMHMMMMAAMMMAMHMOMNQMHMtrVFasttstassaststssssasssts sas sI Iss I Is I aI IIIs sts tts tsa stars sss ssa sss assazsss 2st asatsasstssrsssasas ss 
EO MOO SOOO OTe 


* G 
*% re & 
™ fea EIA an) Oe OQ RAN 
| 4a ro | = Be WwW fa 21 oH oH fo) tt @&MD 
«<L, a ~ ay > mam Dp DD We x wn com AO 
ics <i ot << r cc aZ2O TMHH «x ze O wu 
me Y UO U U fea) et he He e ZS @QHe = RIE 
< N wo & xl -< He & Boe e en 
U U UO VU * wn AW Het s Fie Ge & IMM en 
0G > > > > % =) ZH WMA W@W Dez et DPD A AODOEFE 
ica 79) 29) n wn % << fl mH Nn 2 > He Mm HY =H A, 
~ His pm % oo Mee =] ee < 8 RID ee NH tOnSQ9D> 
ra po] es wn aq rae} fea mom + & UD Hem eOE A GHA erTseyee) SHE 
a <i> - < ro) oO Oo Oo + > H2zD SPs A AAW me WH: 
Y Wa fa 6) fra fea fey Fa % = UYU wWzmaetm mano  OGHN ewaZO (o) oe ix] 
fr * O eH 0G =YQ OOF «< «hl 2@elig UszNROH 
Y ya Y a4 Mm Mm 8A OG * cece SH HMHGaey = BHD seam OO Hc az 
> >H Oo > WY U UY OO x Rn HH G@ QDOH HHO fae OHnW fac] Ww wae 
wn wn =) nn oO Oo Oo Oo wn + Uz U «a ZOmm MN, 2G REO NOW CcAHO 
% a a Hn vHNY 2D + BO DPD HH DPM HoH eH OFF .F% mm HH a F924 
—G fae @) fea mo m AQ Om Mee *% HH mw man HU eq 4 2) Fe Fs UN? HQ mM 
Oo OH isa Oo H Oo * Me ADMAaHOMNR He > He Onan nae oO 
Fea mU fea fra ro | | qa FAQ & + OU WN @ YONURCHNNADD «hive z «<< fx] Onna 
4 ey Oo o) Oo oO * Zz < BQNH SB 4A ee HIUO 
a mu > MG rae} OG G mm & + OD A WM BHM HN eH mam mG J I EES 
Y UY a UY 4 e HH HO @& *% lh 4 OHOREAHUOUHOMHHO wm m0nm ee OGULO 
oO Or Oo Zz Zz 2 wey 2 * = fx Bo O Aiea HO moO O pm Hs 
4 qe A 4 oO Oo Oo oO e + OW MH NHR -EHRAHDS DOHEE mm G&G WU AW 
fa) M« < fsa) Y U U UG & & Ua HoH Ke ZeHHSDOHmmaH bets 0G te =a wh 
a rea] ia as =] * HI UMUC MMC QWS Or OG mmc] 
Au utd G Qua a¥ Oy & tu * “=z OW DM DD CO HMMOM BHO H 22HbUuO 
> De > Dp i) ™m> Dey mH» + 79) OH Y & BRAVUAHSEE GQ0 NH 42mm = @amMn A 
<L, =) eH = * A =] HM @£AORO HH 2RHAZNUGH OUR = (2) 
= eit H fH = Ea BH HQ = x Zz OH YN YQ BRHRIGOMRRziARHHHA ict Au CRCEIA 
rea) a=, =z fa rea} rea WY WO 2 of BO 8 42 NStHeEN Fees UGNG  eO O HOnDS=m” 
Ww NH Het HHN wn wn nN WS A 3 = fylun GS Ds NUBSSAHNHHURUORIOHE eGAG ZF Edda 
aa = Hi RHANHHO OhWM ZG U A late Os Hi 
% oO Ne UO AACKHA URGCORROxXamOS « = 
a Y Qt & BHA 2Q Te AzZ2ZCHD Nes (o) 
+ =e NAHE te SAAS 4 
* eH << SH DON HH OA MBH DMO | 
* Pp =O O 2PHUSBHROGM Hate MOU Oo 
% Ou =S=0O TMG ARO OD 2S HG Au com 
N * e oO HB UMANDA, HHzDcm NGNMMNMND 
+ > UH ODUDRTNARNOAHMmORMiete DHD ros 
QR A % Oo YW) ene NRGRQNDGSG ZsOsB MN Tm om & 
He oO *% OH NAM Ut DRG GEG w@ me Och Be Oo 
mM MEE wo mM fe} mM m mE * A NE HS WO HAAS HOMGAHWON BM 
U YUU am oe) 6) YO VO % Zz ee MOHAN NGAMP HS GAG HHO wn rt. 
Qa ANN amy Q Q A AN x «<< QM AZAUDs AEYOHOAHOER AUN R < G 
Oo Oexes ate O OQ Oo O Oe * He ADQHSAH Aotz20DO Omer HAAS = ioe 
te rie @ Toe WH 4 i MH He x & HH <«O AR Be HW Geet <i <Q Gar 
e wor M+OWM ea . e ~ OQ or % p> <ee OM SRO Mae OmeG PIII cs al 
m Mang MmmMmomm rea) m ma mMon * Oy D A BMQDyHE TAHA RkeywOmMGHH YU = vIWd 
U UN Oe bn) YQ UW YO YUoer eae *% a MFO BOX OU BAreHrmwe KEHeeH HOH 2 4 -Uuvo J 
AD AMANO MAD AGO AD AD AGOARACOIVY * tH He HEN G&G nN @ HHNe=, a HY # OOOO Oo 
HH Ne e® eH NQe MAH GW GA GHWe HG % pm HURMAHARRWO Hct eee MRI D D HHHe mG 
Us GQ>d>doe (NAGSdIG Mig Dod rd ied oGm— ee Ff] OR © FD <KGMUAAIAAMGE YUUYUUPFUNQ= A O _ ddbdddde e 
* BG ee WW FPR>PNACNANS> OR AUUANARNUD FG = 
et wy 5D < Ce Je HOMES eA EEE EMMNGHO UY Oo 
eis eS H om | He BE YO WN NHMNSYUONGNSSWZMNYBEOUVVONOUYU wn Y 
«L CES fsake $c 3-7 +] ee —< <2 GE WW OF ODO fF a Q 4 AHA 
> >> > foe > > ky > > > FS Ss Ht O 6M WM) OW e e e e s ® e 3° eee e Se TO Gait = 
259 S559 SSEeSyp SDH S85 SVL H9M Me G YO BH — NOM st mW oOo f- ONnOeN H HH mmmm: & 
+ q Qy Cer =< pom | > 
J Q > Ww N + wm G | ANAAA & 
1S) H # > a] Et «at Ay *%* © 2 < feo 3 
es) Q AR Q Q G = Ww fo) * WM Qu U ten [o— 
fe 9G mG OG ng = ky A x] * 
+H +A +R AR ££ #R FR HH Ux _* ee ee ee ee ee ee ee ee ee ee eee eee eee eee ee 
ae ee ee eee ee eee eee ee ee ee ee ee ee oe ee ae ee ee ee 


* 
+ 


ee err Tete Te 
TEAL OP 


OR 
RR 
* & 
E 
I 


04 GS 3 0G 


BR 3 he eae a eo a ok 


2) 
D,R3 


R6 
Jil 
IOMO 
XIO1 


aa 
$F FOI IO ICH 
ae 


XIO 


[$<] 
.@) 
* 
+ 


+%* 


% 
PEE ESE HEHEHE HHH H4H HHH EHH 


oY) 
ew 
<i} =z 
UaH Oo 
hl | 1 
Q0<@ fF ANx 
=—2@0) RH Me 
4 Os QWHaEre Et 

YQ 240QnHSs Ww 
Gar ORw ~ wn 
OHM UdtDMO 4 x3 
OG OWe AG a 
Me MGBOMRAO <n (o) 
HBnORONG A fe ©) 
DPmMiGae Wet Ok fc | 
BH we mee sD To) 
Wa CHMORMO wWiti<eM Ore 
BeQQAQ 24% ZEw> as be 
ZWNOO Hs GOAN > 
HS AEN GORE UDse eS 
YQ nce Ot fm yes) 
Ot ~”jRwWe ere 7-4 an 
QWs GMNZO HY) Or 
HHOMUN MmO NHK WY 
ZUIGHOWGm@AmGED> =z Aa 
HH HUNG O eh WewO aw 
'ép | <2 htop oly 7 Onc] 7aO 
HOW =~ ORESHUA oO 
0042 OGD, e 
Ot Ort ct we Uect ~~ 
Ulu w=1 Oy - <x<O 
Be DUNMn Saw moO a 
fy Umm wmode moO 
OHHH S>Hde>A oa Few] 
RVBkiWw ech Ore >i 


VNNUNF WINE HOF HHON 


Aa z= 

oO Le | 

QE oO 

NO a) 
AK ~ | 
Oe Omw | Mm » 
oweltte ow IG GO | 
AM we FE ee ~“™M 2® MOG 


UUMNGU WOM ym GO x 
e8UQ WHDUGe Som 
FTAOTZO MQ wnNNM e WN 
GGNe GHOVOWGNUIOM.s H 
eU EG QHER NUR oes 


foo? Be on | HoH eS HIN 
HAC HSS tS ORONO SESE 
QOS SNOS>S SSS rr>r>mi>> 
BHHSSoeQS Seats elwees 


XLOCS 
XIO1 


* 


Ot o 
fo To } fon ] 
aD ~ 
NOS So 
ry cU Ren of 63 Fo re ON 
oS oOo =O N oe 
fxs Fg ia ND i ~ ot 
N NN INNN N NN 
MQ BOOOWDMASTVDOS wR TFOVUSM 
NO LONNNPONOC CONE aINN 
QO YYOoOUNARINABRAINRMOMN 
YO zasrsrrrost OONOTFONDSU 
DY DONDHONDANONIOSUN 
QM AN YQRQ AAAs 
NA NANNAN NAN NANANNNNNAN 
SO DOOVOOVWVOVDONV VOSS CONDO 
oOo Se90S0000009000 009000 
[e<1 ro] 
& x3 
et e 
[53 | fa 
= <x 
—< 
me Es 
ec wa 
Qse+ He 
b >i 
no Fem fo] 
e+ A Fe 
IH O <«h 
U © Oo HH 
GQhuz ee wt WG 
HOF wy e4 
Oo 3G = FY we NY 
no Hq 2 YU Q 
ad 8 1 = HF An bf 
OaA«< oO H ee GG 
pt ie <1 ay =e BO oe SQ GG 
= m qo OSeaiee Ww) e oO 
On C Of mG ie < 
UGE m UD 8 4 a U 
a Ws fa fo oOo 
< O A <— woe 4 eH YW 
Gi fey & = Geet = —J 
Fi e HO =m « AA 
mona SH mY x 
AGm G& ORMNOR Oo 7 RM & w 
am W Oo = eS = 0) &@ & ww 
<< ~~ & YOSw= a 
2MN0055 =H WM = 
=A Y SG Ho ki Oo 
OAH O SHaAan m= 
UGS Bl HcOn) | 
bad? he 4 = BUYAG oO 
Hs WM U me <<“ fza 
mow smh O 
oT oT @ co rs q 2 WRG | 
rH Kris — Nera = 
NpORGH Hw WE & ra] 
MONRU = He 2 
eo Meee QaOmntHYH 
“Neo FAA, — DGOH wW < 
rFwHwn = GBOGevwAm = oO oO Oo 
Gwe HS Gore Ge & w 
Dat Vnse H Re RO mw es 28 es» O 
a Ame 2D HS ARS 2 MS HAG 
2934 OC 2H HH © YU H e 
Hee v4 @ HH O< 2D HH 4 FF GQ A 
> As wg Sm UORH 2H Ge & |G 
RUmaAU SD HQa 4~HRHonr # Ff &# 
HmROce YO NGMORVUH w@ 
tom & QOnmwoOtmsO 
URZEe> WM) VAVHON WM 
4 Wun H eH Dy 4 3 
<—SOetH=S = eee ee SG < << « < 
RIG) 0s ee esru BY 39M eM gM eM 


U Y U UO VU UO 
i Y BIOVOY fe) N - Aa MoO 
ND ] 1) Wao Aa Q fA YY Uo 
N N fe Tonto) N N N N NO 
<a <x OM EO << «< <x nm att) 
oS Oo Qerer ro oo So So oOo OO 
zy es gf Asay & bee fa By gig 
UN N NNN NI NAN N ™N MN NN 
OU O90 OC900H BoOrYV0TFT C00 OU ODOC. 
NN NN NNN RONEN NSE ND NONNOO 
O99 920 0000 RMArNQODOO O00 O00 DOOCOOSDS 
rN FTN. sss) OO FNTNmMO FOTN OPW IW 
oy oo onwtra YIANODA OO BAH OODWTS 
“<= 2M OAMYUU YUVYRARAN BA SR bak kOO 
AR AA AaAAAAN AaARAAARAN AN AAQ AANA RAAAD 
NN NON ANNNANN NANANANA ONAN NN NANANAN 
oD 320 939009 92090090 00 920 DO00000 
CoO o0 00090 929000090 30 00 D3O000°0° 
Jp) 
[a = 
<x oO a] 
eH =a [9 01 
< = < 
AQ «a [ong] ei 
Yn moO << 
7p) w Mm Es ue = 
= oO S| is | Os SG 
e OG mam ff mG G Gamo 
<< a x VU A 53 SMO, 
Et = mua & A A OmnHA, oe 
72) oO = +4 = MBMOetogwm ilix< 
YU Oo is 1 Hq Of & © Be G 
ros} r] YQ He FH Bhi pk, uf - 
< N A OF, Bw ~~ fA00,0 me —Q 
&] Hy A (4 Oi fey vd | UO Bmamo 8H O ee = 
eH mn [0] (o>) Ua ORK ei dey CUD fey Phy 2 
i? P| bad Oo w = | ENA oO Ga AO wAAH Okey = wo 
t (x n wake Ww ~~ Qs QO OCORADHAWhe AQ ~ 
yy) 4 © = & ~ nm wo ROK OG Fea AR OF AS [hfe 
ee} ce Be & oO Sa} ca | NO Bee OanG SMA mmOrHD etm & 
4 @ = oz a Ww) o aan & Ow Oo Ay GS ONO BG na RF 
Ev, > << =m A nw Ge Aw zm =aNMHNO et Qa @& RAQANUDe Ria mm 
Q mu AW=w < Qa mw = =u) FA wate Sa 2 may 3 fo =) @& mE qdn MN5Soeo AH =& 
a << =D a Ry mG Oo Pow < 5 eS EO De =O < 7a HH FUO a DS 
Oo bea Fxg Ge VU GHe oO GmEeA YO OUmnH BHO We 2NOG Eicthict aia scar - Ont & 
= Oo < OaQ = A= Gy QM esate = MecQ Or Qa =m & ww 2st RB eNMSwI se SAG 
Qaekaa OQ GeAnb<e CQ Qweet QAQ <came DD BSOGHHHS StU > niaiaides Bete Wee IG 
pam fcagcotcatcatcol vets a) t( ~© <Oa 4 eO Une GOs OOH HoH O42 00:00 <& MWD ORM NHaeGoeO ees 
ONNNNWMAW ev Uy = U Onwn Ua AWNNGG Ya UY Onset | ef MM BAAGBMVOOTFP OR 2AM a=cO 
moOnron ows Oo CO WW Gm = H ZWIrVUVU= AQ GS HEE ea <= OO =O BReHHRE wy & 
* Sa] Oa ny USHA Et e bf xd ee A MGA Ree SSeS ARH GG SHOR GBVUHYNaS2S2 22 2R Roe 
% B4eHtHOHoHAaSA we Mt ete SHH UOacHraA LOH eh xt i bint Bee AMS ARH SS On tCUHOAtCUN SDDS ae PA aH 
* QO0000 R 1Oo Wc eololeok i i t-.] ROOM SHs al LO) HOOROOR meg Ge FO GN HYOHeDpOOCOOQOCOCOKceHeDOM- 
* Fu 
* ae 
* fea] 
* ie | 
> 
oO 
YQ * 
A * * 
* * 
") # * 2 
ro ] * * % 
e * * % 
<< * * cy 
E+ om * * 
w o@ ef + oe oe = + oo oe - eeeewe@®@oewnvweneetewrweewvwae ®& oe © we mPeeaneeenvwenee = = & 
© zo t+ = oon = YO mmm om COCO} Or LX WSOVTOODOVCVOFTOOCCOCOMACO9OVU98 &£D aF GDOhOCOOCOOOOO0OSO 
- SC OQeeeewse OVW) Oxer OC le 1 Mm Cee jitet Ove Or IME CONOCOCOCOSCDDOOOSC KNOSCODOOM i %#OOOCOVOOOQOCOOCGOOUH 
oO BR NOOCOCOOCOU M QO000#KOF UU COOK EO*K NQoQok Mt AMSSGOACSOCVWOAOOOSO™ BOWOQCODVWOME MWOVOOIOCQOOOCG00F0 
- HSH eswewweewee (J) wewrwe~w~ OO ewe 2 wo wes]? HK" OF] ewewer “ow ™ eeeee®evucuewveuwnwrertenwwrewewewvwewesyse “te we®eewet e@ee ewe wo wo FT 
~~ 
io | iy fz, 
ea e tan | i=) > 
Y eH OG «S fa 
YU ™ UUVYVYVYVVYS GT VVVUIVOVYEO A VVOVYVVVIOY 4 VUUVLVUOYVY YVQVVUVVVYVNVVNVVVVPVIO VOVVOVVVOVVVVVOVVVVVNUVVVVVVO 
a YQ AAnRAANRAARA FSF ARAAAARAAAN FSF AEaARgQAAaANgn FT anaaqaag ARARNAAAARAARAARAQAANANAARaAaAaAqQaAANAaAeaqQgRnaqsqaagrRaqnqnaaany 
% iQ *% mom * * EIN GS MO “{_ A Ha Ons KHNMSWIMW Eig 
* OU * YQ * U * WY 27M fob BOerGGH —H B&B BHOHSHAONHRHROCOOCCSCOCORMRH «HH 
+t a *¥ es fa + @ Dah fee Bee SS GMA CUUR KSSH CRC S>acan 
* Ww % G * 9 «4 % QO OCOHBqg HAx+2R2NNYOOCOAR 4 OFM mH<HOMQOKhHHHH et <HoGHS 


MYUTMMAAOUNYOUVVVVMNVNABN  BCHEKHREKRKRKEAEREREKRKEHEEHEEHREE 


TIF WNDE DDN HAMS WOM DHOOM AM FNP DHS AUMSMNOPM DN SCAM SNOOP DHNOTMAUM AMO DHONI TAO DNS SNH TNOP DKnOTAM ANP VDHOt VINO DHNOSANM TNO WHOOP} STUNOMDo 
IERLAUIUIUILN OO DOO OOCDOP EE EEPLPEME DOD DODDDBDDAANAAMNAANANS 99999 G OOO Coo NIE AION ONIN 9 9 9 FD EFT OH OOF) SP SS FS SSS SAI ALOU LA LE AIUILN UNO Orion OWN 
AAACN AAR AEN NAN ANTI NENG NOTE NNN ONION CDE ONIN NIN ONIN NNT FY FD DAG PY VY YA HN VY AD FR PD FY TIED YEP OFS CD HDS LD HR EHD CPN HD CHEN) OY HPD RED CHD CH DDD EHD Hy HHT CAITR DH IOI EHD VD DH D 
0 0 0 0 RE POPE O we 


Sooooeooskr 
eo lelelelelelels | 
ooQqoooec5nw™ 
NOcooscon 


QRON ST O00 << 
OO@C 2 Cree 
asaAAaqqaqAnAaAa 
ANNANANNANN 
Sooooo0o0oo 
CSoooocoe3afo 


—OO00°08OoO 
(ole lelelelelo) oe) 
CoOQo00000 
Qooooeoese 


URONTOO< 
ee ee NANNING 
aRAaRAgANA 
NANANNANAN 
Osoo0000 
Socooo00ed 


YUCoossoeo 
Qoo0ecoo 
lo ole lolejolele) 
SCooceceo 


UROWNSTOO 
NANMMAMMMAe 
eaaRreqaaa 
NANANANNAON 
(eo eleleleleilole) 
Oooo0o°oco0Q 


ACCOrvoooe 
elelejelelelele) 
SOooSrOAO 
NOOoCoo90sS 


URONTOO< 
oe 192 bn im om oe ee 
AaAAQAagAAA 
NNNNANNAN 
Oooooooo 
BOooooe00eo 


0000000000000 


DOOODVDOOoOesOOCOPVPOWMACOVYS KOOSSSCSMOODOSOOVOOSCOS 
CDOOCOVOSOOOVOSPSS HA MDNCO9TFOOSSSOSsCVWSOooeocoe 
DYUGSOOOGVOOSVQ°VYBOOD|D KHAQVGDOWOSSGOQVWOWOOVOOWS0I9S9898DNY 
POOCOOSCOSOSSOSCOSCSSOP OOSCOOOCOCOSCoooOCOCoOcSeo°eo+ 


URONS?WO LOURIONST OO f2UMONT OO £ZOROWON? COO t<£URONTO 
FT MOMNMMNMINININ OOO 00 O00 OP PPE DODAIHAC OOO Kh al 
ARAAAARAAANARAARAAAAAQqQAANANRKAAAaRANRAARAARkRAAaAAaAA 
NAANANANNAAIRNIA ANN NORNN OERNNANNANNNANNANNOARNNNNN 
WBDOOSOSGCOSOSSGOSSOOSSSOSSSSSOSSOSSOVOSBOSOSOOOOoO000O 
BDOOOSGOVSVSOOOCODOSOOVO SN SOSOSSSE Sooo 0 0eoooedoEeo0 














My 


pe toy eS eet EI VU Ve ve eS GS eS > oo Ge hs 4D 4 4 tS 


14802 --- WRITE TEST P/N=1635072 EC=578757 PAGE 07 L4802 --- WRITE TEST P/N=1635072 EC=578757 PAGE O7A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SCURCE STATEMENT COPYRIGHT IBM CORP 1976 
OOZE46 4CAI 1487+ TBTR Bie aN RESET ANY ERROR BEFORE I/0 COMMAND 1606+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
OO02Z2E48 4CA3 1488+XI02 oo CLEAR INTERRUPT RECEIVED CNTL BIT 1607+* THE SRROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
QOOZE4A 4724 2F06 1489+ MVA SET UP CONTROL BLOCK FOk SUPVK 1608+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 
OOZE4E 4CA6 1490+ TBITR fied! Liks by RESET LEVEL ERRCR INDICATOR 1609+* COMMON SECTION IS HANDLED HERE. IL 
QOOQZE50 4C62 1491+ TBTS a? SET EXPECTED INTR CONTROL BIT 1610+ IL 
QO02E52 600A eee SVC CALL SUPVEK FOR I/O COMMAND sp at RETURN CCNTROL if 
+ 
OO2ZE54 4CAT T4944 TBTR R4&,NI) IS AN INTR EXPECTED 1613+* SVC EXIT RETURN TO USER VIA SUPVR IL 
002E56 6ACO 0002 1495+ BN R6, 52) * NO, RETURN TO USER 16144+* IL 
1496+ 16 154 8% RRO I IG iO I a ik otek ktek kokokakcdetegtok 5 
1497+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION OO0ZL9E T7O06E pedo eeen DC X*7O6E* COPY STATUS ANY LEVEL INTO R3 IL 
1498+* 00Ztra0 336A 1617+ SRL 13,3 POSITION INDICATORS IN RB3 IL 
QOZE5SA ODOO 1499+ MVBI *00*,R5 SET UP WCRK REG FOR ‘LOST INTR! OOZEA2 4424 2708 1618+ MVA OPtN1, i SET UP BASE ADRS IL 
OO2ZE5C 4CA3 1500#+XI08 TBTR (4 rh) HAS INTERRUPT BEEN RECEIVED OO02ZEAG 4C63 1619+INTR1 TBTS RQ, SET INTERRUPT RECEIVED IL 
QOO2ZE5E 1238 1501+ JON IOCK * YES, CHECK IF ALL WAS SATISFACTORY OO2ZEA8 4C28 1620+ TRT RQ c3} a eee IN PROGRESS! ON IL 
OO2E60 6002 1502+ SVC IDLE ALLOW ANCTHER PROGRAM A CHANCE TO RUN QOZEAA 1204 1621+ JON NTR BCH AROUND UPDATE IL 
1503+* SUPVR WILL RETURN HERE O0ZkLAC C328 2711 1622+ MVB R3, $1OIN+1 SAVE Sty TERRUPTLNG CC CODE IL 
OOZE62 7DA1 0001 1504+ AWL 1,R5 ADVANCE TIME OUT COUNT OOZEBO 6FOD 2712 1623+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS IL 
QO0ZE66 18FA 1505+ JINZ XI08 BCH IF TIME OUT NOT REACHED OO2EBY4 1624t+INTK2 EQU * IL 
OO2E68 4C61 1506+ TBIS RY, ER) SET CN ERROR CONTROL BIT ; 1625+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 
GO2ZE6A 68D2 0000 1507+ R6f * ERR *NO INTERRUET® OOZEBY 3521 1626+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 
1509 + 4 ok KE Io a io ok ck ack tok tai ickdok 40 3F EB76 ** O0OZEB6 0501 1627+ ABL 1,R5 * IN "I" BIT IL 
1510+* OO0ZEB8 CD24 2744 1628+ CW SINTL,KS IS THIS THE CORRECT INTR LEVEL IL 
15114#* SUBROUTINE QUZEBC 1002 1629+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 
1512+%* OOZEBE 4CO66 1630+ LBTS R4,$LE) SET INTR LEVEL ERROR CONTROL BIT IL 
1513+4+* I/O EXECUTE ERROR HANDLING ROUTINE 0O0zrCQO 4Col 1631+ TBTS Ba KL SET ERROR ON I/O COMMAND CNTL BIT IL 
1514+* VQZEC2 4CA2 1632t+INTR3 TBTR R4,XI WAS INTERRUET EXPECTED IL 
1515+* EURBPOSE OOZECKH 1204 1633+ JON INTRX * YES, EXIT OFF THIS INTR LEVEL IL 
1516 4** QO2Z2EC6 4C60 1634+ TBIS Ngee MI) * NO, SET pee eC ay INTR CONTROL BIT IL 
1517+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP LCETERMINE THE OOZEC8 F304 1635+ CBI ,R3 ATTENTION INTERRUPT? IL 
1518+ PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE QOZECA 1001 1636+ JE INTRX YES IL 
1519+ SUPERVISOR AND IT WAS NOT ACCEPTED. OO2Z2LCC 4c6C 1637+ TBIS ABS NG) ERROR, UNEXPECTED INTERRUPT IL 
1520+* QOU2ZECE 6006 1638+INTRX SVC XIt EXIT HIS LEVEL VIA SUPVR TO PGM IL 
1521+* CALLING SEQUENCE 1640+ % #3 KO i ci ia iio de aick iotok tok tok ctokokodoiak tak Q 3F ER7 6 *x 
1522+%* 1641+* 
1523+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 1642+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
15244 164 3+%* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
Wogate RETURN CONTROL es RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
+ 
1527+* B (R6) * RETURN TO USERS ERROR HANDLER 1646+* 
1528+4* QO2EDO 4CaA4 1647+#XIOCK TBTR R4,XE) WAS AN ERROR EXPECTED 
1529 © OR KK Ok a kk kk kok ak kk ok ak ak ak kk ak ok ok ak kk ak ak a ac ake ai aie ok a te ke akc ae ie ake akc ak ake ae ake ake ake oe a GO2ZED2 6ACO 0002 1648+ BN k6,2 * YES, EXIT THIS ROUTINE 
1530+4** QO2ZeED6 4CA8 1649+ TIBTR R4,CS) WAS AbroO CS IN EROGKESS 
1531+* CC O= DEVICE NOT ATTACHED O0ZED8 1006 1650+ JOFF xXIOCV * NO, CONTINUE CHECKING 
1532+* FOR 1= DEVICE BUSY OO2ZEDA 4C2a 1651+ TBT seeeo Is cs an AN ERR CONDITION 
1533+* Tyo z= DEVICE BUSY AFTER RESET UO02EDC 1002 1652+ JOFF IOco * NO oo 
1534+ 3= COMMAND REJECT O0ZEDE 68D2 0000 1653+ B R6) * cs ERRO 
1535+4+* Y= INTERVENTION REQUIRED OUZEE2 4C69 1654+XIOCO TBTS R4,CSA) TURN ON Ros STATS AVAIL FLAG 
1536+* 5= INTERFACE DATA CHECK GOZEE4 5601 1655+ BXS ae GO TO USER 
1537+%* 6= CCNTROLLER uae: QQ2ZEEo 4C21 1656#*XIOCV TBI R4, ER) WAS ERROR INTR CONTROL BIT ON 
eae. 7= IsAO COMMAND EXCEPTED OOZEES 100B rae JOFF ITOcxX * NO, EXIT THIS ROUTINE 
OQOO2ZE6E 706E 15404+XIOER DC X'706E* COPY STATUS ANY LEVEL INTO &3 OOZEEA C520 2711 1659+ MVB SIOIN+1,R5 GET LAST INTR CC COCE 
O02EL70 336A 1541+ SRL 13, R3 POSITION CC CODE TO BiTS 13-15 OOZEEE F502 1660+ CBI 2,h5 IS THIS CC=2 
OO0ZE72 C328 2710 1542+ MVB R3, Si01N * PUT IN LOG OUT AREA OOZEFO 68D1 0000 1661+ BNE (fo) * * NO, BCH TC ERROR HANDLER 
OO2ZE76 68D2 0000 1543+ B (F6) * RETURN TO USER ERROR HANDLER OOZEF4 C520 2712 1662#XIOCQ MVB ISB, R5 GET fast ISB DATA BYTE AND IF CS 
1545 + 8 KR a ka ai ok kk atk dk kK dk tok 2k 1 4A PR76** QU2EF8 6A00 2L0E 1663+ BN x10c§-4 * AVAILABLE, GO AND GET IT 
15464* IL QO02ZbFC 68D2 0000 1664+ B RG) * ERRQR 
1547+* SUB-ROUTINE IL 002FO00 CB25 270C 1665+XIOCX MVWZ CPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
1548+% IL Q02FO4 5601 1666+ BXS  (R6,25 RETURN TO USER VIA REG 6 
15494* ERROR INTERRUPT RUNS ON INTERRUET LEVEL *$INTL! IL 1667+* 
1550+* IL 1668+* IsO0 PARAMETER LIST 
1551+* PUREPCSE IL . 1669t** 
1552+* IL QO2ZFQ6 19D0 1670+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
1553+% THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL OO2FO8 2E6E 1671+ DC A XIOER) ERROR ROUTINE ADRS 
1554+4+%* OR THE INTERRUPTING CONDITION CODE DCES NOT AGREE WITH THE IL OO2FOA 0000 1672+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 
1555+ EXPECTED CODE. IL OOZFOC 0000 1673+IOMOD DC A ie MODIFIER 
15956+%* IL OO2FOE Q000 1674+ DC A (*¥-* ADRS OF LAST SVC CALL 
Ue es CALLING SEQUENCE tt OO2ZF10 Q000 Le ae DC A (*-* SECOND WORD OF LAST IDCB 
+ + 
eres SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT a eo ee INTERRUPT CONTROL BLOCK FOR I/C COMMANDS 
+ 
1561+* RETURN CONTROL IL Q02ZFI2 19D0 1679#+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
1562+* IL O0O2F14 2E9E 1680+ DC A (INTOK INTERRUPT OK RETURN ADRS 
1563+* SVC EXIT RETURN TO USER VIA SUPVR IL OO2F16 2E7A 1681+ DC A({INTER INTERRUPT ERROR ADRS 
1564+* IL OOZFI18 0003 1682+iNTCC DC xX*0003! INTERRUPT CODE EXPECTED 
15 6 5 + EOI GI GC Oi I aia a ai kick ak i tok ak ak aka aa ake akoak ale ake ak ake ate ae ak ak ak ak oe J TL 1684 + 8% Xk OC ioc or oigiok ac ak iciotaioiioaageiokaoioiak lake MAY 76 xx 
1566+* IL 1685+ 
1567#* CC O= CONTROLLER END ISB = ADD STATUS IL 1686+* SUBKOUTINE 
1568+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 1687+* 
1569+#+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 1688+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
1570+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 16894 
1571+* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 1690#+* PURPOSE 
1572+* 5= ATTENTION / PROGRAM CNTL INTE 5= INV STG ADRS IL 1691+* 
1573+* 6= ATIENTION / EXCEPTION INTR 6= PROTRCT CK IL 1692+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS LCEVICE AND 
1574+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 1693+* PREPARE CN THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
1575+#* IL 1694+* TO INTERRUPT. 
QO2ZE7A 706E 1S76+INTER DC X*7Q6E* COPY STATUS ANY LEVEL INTO R3 IL 1695+* 
QOO2ZE7TC 336A 1577+ SRL 13, 83 POSITION INDICATORS IN R3 IL 1696+* CALLING SEQUENCE 
OO2ZE7TE 4424 2708 1578+ MVA OPTN1,R4 SET UP BASE ADRS IL 1697+* 
OO2ZE82 4C28 1579+ TBT ser c§ IS CS IN PROGRESS IL 1698+%* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
OO2ZE84 1006 1580+ JOFF ntES * NO IL 1699+ 
QQZE86 4C6A 1581+ TBTS 484 CE TURN ON CYCLE STEAL INTER ERROR IL 1700+* ~-> BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 
Q0OZE88 6FOD 273C 1582+ MVW 71,CST 8 SAVE CS ERR ISB VALUE, BITS 0-7 iL 1701+* --> BAL $CONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
QOZE8C C328 273D 1583+ MVB R3,CS5TL8+1 * AND THE COND CODE IL 1702+* 
002E90 500A 1584+ J INtR1 IL 1703+* RETURN CONTROL 
QO0O2ZE92 4C24 1585+INTES TBT AS XE) TEST EXPECTED ATTEN / ERROR IND IL 1704+% 
QOO2ZE94 1002 1586+ JOFF NTET BCH IF NOT EXPECTED IL 1705+* BXS R6,2) RETURN TO USER VIA REG 6 IF OKAY 
O02ZE96 F304 1587+ CBI 4,R3 IS THIS AN *ATTENTION* INTR IL 1706+* Ok B R6$ * IF THE DEVICE COULD NOT BE CONNECTED 
OOzZE98 1006 158+ JE ThtK1 * YES, BCH TO END INTR SEQUENCE IL 1707+* 
OOZE9IA 4C61 1589+INTET TBTS (R4, ER) SET ERROR ON I/O COMMAND CNTL BIT IL ; 17 OG & HH HH He HK Oko ok i ka ao a a ok a iG kak a kok akkofeakc de kak acc ak ak ike aga 
VOZ2E9C 5004 1590+ J Invh1 IL OUZF1IA OFO6 1709#$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
1591+ THE ERROR INTERRUPT USES THE SAME IL Q02F1C OBO0O 1710+ MVBI QO 7R3 * AND THE DATA TO USE 
159 2+* ENDING SEQUENCE AS THE NORMAL INTR IL QO2FIE 4524 2716 1711+ MVA DEV1,R5 * ALCNG WITH THE ADRS TO USE 
159.4 + 4% IOI ICO III IO OR IO RO i tok kok 40% 1 4A PR76 IL OO2ZE22 2bBAC 1712+ FFN R3 C5) * 
15954 IL OO2F24 CB25 270C 1713+ MVWZ OP 3,k3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
1596+* SOUBROUTINE IL OO2F28 4724 274A 1714+ MVA SVCAL,R7 SET UP TO REQUEST DCP SUPR DISK 
1597+* IL OO2ZF2C 6016 1715+ SVC REQSD * 
1598+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL "$INTL! IL QO2ZF2E OFFF 1716+ MVBI ~1,R7 SET UP DELAY FOR IBIS 
1599+* IL 0OZE30 BFFF 1717+ JCT * R7 * AND DECREMENT IT DOWN 
1600+* LURPOSE IL OO2ZF32 4724 2F12 1718+ MVA INTBL, R7 SET R7 TO CONTROL BLOCK AND 
1601+ IL VO2ZF36 6014 1719 SVC CICB * CONNECT IT TO THIS DEVICE 
o0zes TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 00238 6ADO 0000 odce BN (R6) * ERROR RETURN TO USER 
+ IL 
16044#* CALLING SEQUENCE IL QUZF3C 8828 2744 2FOA 1722+S$CONP MVW SINTL, IODCB PUT IN LEVEL & INTR PARAMETER 
1605+¢* IL QO2Z2F42 4724 2F06 1723+ MVA LOBLK, R7 SET R7 TO CONTROL BLOCK TO PREPARE 
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MVWI *07.08',$IOIN INITIALIZE CCNDITION CODE STORAGE 
MVWZ $ISB R3 * AND CLEAR OLD ISB VALUE 
MVW eee LStT0 SET UP ADDRESS THAT STARTED LAST I/O 
SVC PREP * AND CALL ON SUPVR 
BXS (R6,2) RETURN TO USER 
FIO GOO OIG OIG GIO IIIA ECR AKO 6 A PR76 *X 
SUBROUTINE 


DISCONNECT THE INTERRUPT CONTRCL BLCCK AND LOG ERRORS 
PURPOSE 


2717 274D 


40C1C2D6D9E3 

9C440C9IDECID 
040404040404 
3D340C4C3C2F 
4O4O4O4O4O4OY 
CIC4LAOC3ZE260F 
HOLO4OLOUONOY 


1724+ 
1725+ 

1726+ 

1727+ 

1728+ 

1730+ 

1731+ 

1732+ 

1733+* 

17 34+ 

1735+* 

1736+4+* 

1737+* 

17 38¢% DISCONNECT THE INTERRUPT CONTROL BLOCK TO fHIS DEVICE AND 
1739+* SET THE *NO GOOD* CONTROL BIT, THEN LOG THE DATA THAT HAS 
1740+ s BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
1742#* CALLING SEQUENCE 

174 34% 

1744 +e THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 

17464+* --> B $SERRS SET '"NG* BIT AND CONVERT DATA TO LOG 
iihies --> B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 
1749+#* RETURN CONTROL 

1750+* 

1751+* B TURTN* RETURN TO MDI 

1752+% OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
pWhet CREEL ES SSS SESS SSS SPSS SSE SSS SS SSS Pe SC SESS SS SS SSS SSS SSS SSL SS SL eS SL eC LS S22 + 2-2 
17554+$ERR$ MVWI X*'8000",TUSTATUS SET ON "NO GOOD* STATUS BIT 
1756+ MVA HEBLK, R4 GET ADRS OF CONTROL BLOCK 
1757+ SVC HTOE CCNVERT HEX TO EBC VIS DCP 
1758#$PRNT MVBI 3-R5 

1759+ MVA TOWCRK,R3 SET UP EUFFER STORAGE 

1760+ MVW R3~-BUFPT 

1761+ MVA  LINE1,R1 

1762+ MVBI 4,R7 

1763+ MVBI 8-46 

17644+MVBUF MVEN (R3). (R1) 

1765+ MVBI 4ek 

1766+ MVBI x 40",R2 

1767+ MVB = -R2 cei + 

1768+ Jct MVEUF,R6 

1769+¢ MVBI 8,R6 

17704 AW] 44.R1 

1771+ JCT  MVBUF,RS 

1772+ MVWI PIDMSG10,PID+t2 

1773+ MVA FAKETU,@DCADD1 

1774+ MVA  DC2PT.ASDCADD2 

1775+ OWI BITOO80O,SUPSTAT 

1776+ MVA $TUID,R3 SET UP BUFFER STORAGE 

774 BAL TUMSGATR*, R7 GO TO MESSAGE WRITER 
17794$CONX EQU x 

1780+ MVB SCTID#*1,SVCAL+*3 SETUP CURRENT CYLINDER NUM 
1781+ MVA SVCAL,R1 ADDR OF RELEASE PARM LIST 
1782+ SVC RELSD RELFASE CONTROL 

1783+ MVB DEVADD, R7 GET DEVICE ADDRESS FROM MD 
1784+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
1785+ | B TURTN* RETURN TO MDI SUPERVISOR 
17874+BEGIN DC A (0007 NUMBER OF LINES TO PRINT 
1788+ DC A10008 LINE LENGTH = 8 CHAR 

1789+ DC C'x%* ABCRT® 

1790+ DC A (0040) LINE LENGTH = 4O CHAR 

179 1+ DC C*TULD IOIN ISB DEV1 DEV2 DEV3 DEV4 * 

1792+ DC A (0040) LINE LENGTH = 40 CHAR 
17934#LINE1 DC c t 

17944 DC A (0040) LINE LENGTH = 40 CHAR 

1795+ DC C'CNTL DCB2 DCB3 DCB4& DCBS CHAD BYCT ADRS * 

1796+ DC A (0040) LINE LENGTH = 40 CHAR 
17974+LINE2 DC ct ' 

1798+ DC A (0040) LINE LENGTH = 40 CHAR 

1799+ DC C'RSID CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 CS-8 ° 

1800+ DC A (0040) LINE LENGTH = 40 CHAR 
18O1#LINE3 DC C ' 

1802+* 

1803+BUFPT DC A =) 

18044DC2PT DC A{BEGIN) 

1805+FIXTU DC X"01018 

1806+FAKETU DC X*01018 

1807#PIiDMSG10 EQU  X*F1FO* 

1808+BIT0080 EQU x*0Q808 

18 10+% DATA CONTRGL BLOCK FOR CONVERTING HEX TO EBCDIC 
1812+#HEBLK DC NUMBER OF BYTES TO CONVERT 
1813+ DC rh ID) FROM ADRS 

1814+ DC TUWCRK) ANE THE TO ADRS 

1815 * 

1817 END 
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SDATA 
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oWBUF 
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SWRT 
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@DCADD2 
@FIXT 
@QUES 
@TUXX 
BCNT 
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EC=578757 


HEX LOCATION (0G002740) 
3 999 1005 1008 


HEX VALUE (00000000) 
730 731 #732 £4734 #« #4#+735 993 
HEX VALUE (00000001) 
943 950 965 969 971 #992 
1761 1764 1767 1770 
HEX VALUE (00000092) 
724 725 #4272 750 751 752 
831 832 833 834 935 937 
967 969 1007 1008 1766 1767 
HEX VALUE (00000003) 
911 912 918 919 921 £924 
939 940 944 945 945 946 
1396 1466 1476 1479 1480 1483 
1577. 1583 1587 1617 1622 1635 
1713. 4725 1759 1760 1764 1776 
HEX VALUE (00000004) 
743, 744 746° 763 #22777 +~«#2=784 
890 894 903 916 955 1130 
1470 1473 1487 1488 1490 1491 
1578 1579 1581 1585 1589 1618 
1631 1632 1634 1637 1647 1649 
HEX VALUE (90000005) 
909 913 922 ° 924 926 931 
948 949 952 1394 1396 1477 
1499 1504 1626 1627 1628 1659 
1712. 1758 1771 
HEX VALUE (00000006) 
736 761 #765 #767 + #211768 770 
782 794 799 869 888 892 
1027. 1032 1050 1055 1073 1078 
1125 1128 1133 1146 1411 1475 
1648 1653 1655 1661 1664 1666 
1763 1768 1769 
HEX VALUE (00000007) 
905 923 928 929 943 950 
1395 1478 1482 1489 1582 1623 
1717, 1718 «#1723 1756 1762 1765 
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HEX LOCATION (0000 2F1A) 
HEX LOCATION (00002FA8) 
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= = 


HEX LOCATION (00002DF0) 
HEX LCCATION (00002744) 
HEX LOCATION(00002710) IN 
1542. 1622. 1659 1724 
HEX LCCATION(00002712) IN 
1623 1662. 1725 
HEX VALUE (00000026) 
LOCATICN(00002DCC) IN 
LCCATION (00002DB8) IN 
LOCATION(00002DE0) IN 
LOCATION (00002DB0) IN 
HEX_LCCATION(0Q002Da8) IN 
HEX LOCATION(0000270E) IN 
1776 1813 
HEX LCCATION(00002H12) IN 
HEX LOCATION(OO002AEC) IN 
HEX LOCATION(00002DE8) IN 
HEX VALUE (00000201) 
HEX LOCATION(000019B8) IN 
HEX LOCATION(000019BA) IN 
HEX VALUE (00000101) 
HEX VALUE (00000100) 
HEX VALUE (00000500) 
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pa} 


393 
LO 
887 
1145 
HEX LCCATION(OQOQ02FBE) IN 
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HEX VALUE (0000002a) 
HEX VALUE (00000014) 
HEX LOCATION(00002CCC) IN 
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HEX LOCATION (00002B1A) IN 
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CSECT (14802 
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14802 --- WRITE TEST P/N=1635072 EC=578757 PAGE 09 I4802 --- WRITE TEST P/N=1635072 EC=578757 PAGE O9A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-KEFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
1000 CLOP1 papBRESS- HEX LCCATION({O0O02E2E) IN CSECT(I4802 ) LENGTH(A4) 1589 INTET ie HEX LOCATION(OOO02E9A) IN CSECT(I4802 ) LENGTH®¢2) 
954 CLR $80 ee HEX LOCATION(Q0002AC2) IN CSECT(I4802 ) LENGTH {6) 16 16 INTOK ATR EAS: HEX LOCATION (OOOO2E9E) IN CSECT(I4802 ) LENGTH (2) 
511 cS BSOLUTE. HEX VALUE (90000028) 16 38 INTRX ADDRESS. HEX LOCATION(QODOOQ2ECE) IN CSECT(I4802 ) LENGTH (2) 
1470 1473 1579 49 1633 ©1636 
512 CSA BBSOLUTE- HEX VALUE (00000029) 1619 INTR1 dean ene eee IN CSECT (14802 ) LENGTH (2) 
542 CSBUF pADBRESS. HEX LOCATION (0000272E) IN CSECT(I4802 ) LENGTH(1) 1624 INTRz Fa ea HEX LOCATION (QOOO2EB4) IN CSECT(I4802 ) LENGTH (1) 
1258 CSDCB ADDRESS. HEX LOCATION(0Q002D0C) IN CSECT(I4802 ) LENGTH(2) 1632 INTR3 icooe HEX LOCATICN(QOOO2EC2) IN CSECT(I4802 ) LENGTH (2) 
543 CSTL1 ADDRESS. HEX LOCATION (0000272E) IN CSECT(I4802 ) LENGTH(2) 1670 IOBLK ar Ce aa LCCATION(OO002F06) IN CSECT(I4802 ) LENGTH (2) 
544 CSTL2 ADDRESS. HEX LOCATION (00002730) IN CSECT(I4802 ) LENGTH(2) 1672 IODCB ADDRESS. HEX MRO E eke Orage nT IN CSECT(I4802 L LENGTH (2) 
844 1382 1385 1388 1397 1400 03 1406 1408 1471 
550 CSTL8 ADDRESS. HEX LOCATION(0000273C) IN CSECT(I4802 ) LENGTH(2) 177 1722 
Bas ate 1382 1583 ee naa tiie 1673 IOMOD ADDRESS. HEX LOC ATION(OQOO2FOC) IN CSECT(I4802 ) LENGTH (2) 
» HE CATION E) IN CSECT (14802 LENGTH (1 
921. 1876 ( ) ( ) ) 37s 14802 CSECT. START (00002500), LENGTH(3028) ESDID(0) 
1804 DC2PT ADDKESS. HEX LOCATION(000030C8) IN CSECT(I4802 ) LENGTH (2) 37 
ee aoe 1774 ae 1316 JOE ADDRESS~ HEX LOCATION (00002D66) _IN CSECT (14802 } LENGTH (2) 
ADDRESS. HEX LCCATION(00002C72) IN CSECT (14802 LENGTH (6 
te mE" ( ) ( ) (0) 933 934 935 936 954 957 958 960 96 
A ADDRESS. HEX LOCATION(000019D0) IN CSECT(I4802 LENGTH(1 6 
557 1670 1679 8 ‘ ( ) 1317 JOE1 ADDRESS. HEX LOCATION (00002D68) IN CSECT(I4802 ) LENGTH(2) 
527 DEV1 ADDRESS. HEX LCCATION(00002716) ZN CSECT(I4802 ) LENGTH (2) 870 ~=—s 872 
; 531 1711 1793 LINE1 ADDRESS.» HEX LCCATION(OOOO2FF6) IN CSECT(I4802 ) LENGTH(40) 
1207 DGDCB ADDRESS. HEX LOCATION(OQO002CBC) IN CSECT(I4802 ) LENGTH (2) 1761 
1408 745 LOOP ADDRESS. HEX LOCATION(000027C4) IN CSECT(I4802 ) LENGTH (6) 
1328 DIAGW ADDRESS. HEX LOCATION(O00002D7E) IN CSECT (14802 ) LENGTH(2) 806 : 
1214 526 LSTIO ADDRESS. HEX LOCATION (00002714) IN CSECT(I4802 ) LENGTH(2) 
1307 DIFF ADDRESS. HEX LOCATION(00002D54) IN CSECT(I4802 ) LENGTH (2) 1475 1726 
740 751 76 788 L1 ADDRESS.» HEX LCCATION(0000287C) IN CSECT(I4802 ) LENGTH(6) 
67 DUMMY ABSOLUTE. HEX VALUE (00000000) 778 
342 410 ° #422 1150 MATT ADDRESS. HEX LOCATION(00002C62) IN CSECT(I4802 ) LENGTH(4) 
1310 ENDEX ADDRESS. HEX LOCATION(00002D5A) IN CSECT(I4802 ) LENGTH(2) ; 1425 = =61155 
789 503 MI ABSOLUTE. HEX VALUE (00000020) 
411 ENTET ADDRESS. HEX LOCATION(00002Z588) IN CSECT(I4802 ) LENGTH (1) 1634 
198 1764 MVBUF ADDRESS. HEX LCCATION(O0002F76) IN CSECT(I4802 ) LENGTH(2) 
47 EQ ABSOLUTE. HEX VALUE (00000000) 1768 1771 
396 515 NG ABSOLUTE. HEX VALUE (000.0002C) 
504 ER ABSOLUTE. HEX VALUE (00000024) 637 
738 763 784 801 1229 894 903 916 510 NI ABSOLUTE. HEX VALUE (00000027) 
1130 1135 1148 1487 1506 89 1631 1656 149 
965 ERR7 ADDRESS. HEX LOCATION (OOQ02AEO) IN CSECT(I14802 ) LENGTH(4) 351 NO0001 Be aa 7 ae LCCATICN (00002528) IN CSECT(I4802 ) LENGTH (2) 
1151 ER 16 jABDRESS. HEX LCCATION(00002C66) IN CSECT(I4802 ) LENGTH (6) 354 NO0002 Ot eee HEX LOCATION (0000252C) IN CSECT(I4802 ) LENGTH{2) 
579 EXIT jpBSOLUTE. HEX VALUE (00006006) 357 NQ00003 OC tana 10 a LOCATION (00002530) IN CSECT(I4802 ) LENGTH(2) 
1806 FAKETU ADURESS. HEX LOCATION(000030CC) IN CSECT(I4802 ) LENGTH(2) 369 NOOQ004 Pag HEX LCCATION (00002542) IN CSECT(I4802 ) LENGTH (2) 
1105 FDEF jABDRESS- HEX LCCATION(OOOO2BF4) IN CSECT(I4802 ) LENGTH (2) 375 NQ0005 Oe aa eae: LOCATION (OOO00254E) IN CSECT(I4802 ) LENGTH (2) 
844 FINIS ADDRESS. HEX LOCATION (00902956 IN CSECT(I4802 a! LENGTH (6) 387 NOOQOO6 ADDRESS. HEX LOCATION (00002560) IN CSECT(I4802 ) LENGTH(2) 
790 809 811 815 17. 819 ° 821 823 330 
825 827 #829 e432 838 840 #842 393 N00007 ADDRESS. HEX LOCATION(0000256C) IN CSECT(I4802 ) LENGTH(2) 
1125 FMT ADDRESS. HEX LOCATION(O0002BF6) IN CSECT(I4802 ) LENGTH (4) 333 376 
1032 1055 1078 1100 £1103 405 NOOQ008 ADDRESS. HEX LOCATION(0O000257E) IN CSECT(I4802 ) LENGTH (2) 
1104 FMTIFO ADDRESS. HEX LCCATICN(OQOOZEFO) IN CSECT(I4802 ) LENGTH (4) 336 
1096 408 NO0009 ADDRESS. HEX LOCATION (00002582) IN CSECT(I4802 ) LENGTH(2) 
1033 FMTOO ADDRESS. HEX LOCATION(00002876) IN CSECT(I4802 ) LENGTH(A4) 339 394 
1027 58 OF ABSOLUTE, HEX VALUE (00000202) 
1056 FMT10 ADDRESS. HEX LCCATION(OOOQO2E9A) IN CSECT(I4802 ) LENGTH(4) 360 378 
1050 1312 ONE1 ADDRESS. HEX LOCATION(OOQO02D5E) IN CSECT(I4802 ) LENGTH(2) 
1079 FMT20 ADDRESS. HEX LOCATION (00002ECO) IN CSECT(I4802 ) LENGTH(4) 753 786 768 #11 
1073 468 OPTN1 ADDRESS. HEX LOCATION (00002708) IN CSECT(i4802 ) LENGTH(2) 
1057 FONE1 ADDRESS. HEX LCCATIGN(O0002E9F) IN CSECT(I4802 ) LENGTH(2) 718 1578 ~=1618 : 
1051. 1102 491 OPTN3 ADDRESS. HEX LCCATION(0000270C) IN CSECT(I4802 ) LENGTH(2) 
1224 FRDCB ADDRESS. HEX Bo 9081 4092" IN CSECT(I4802 d LENGTH (2) 847 1665 1713 
1028 1029 1020 1051. £41052 053 1074 1075 1076 101 PARMAKA ADDRESS. HEX LOCATION(0Q00196E) IN CSECT(I4802 ) LENGTH (1) 
1097. 1098 1099 1402 1126 127. 1137. 1139 1406 367) == 3850 
10 96 FTF ADDRESS. HEX LOCATION (0000 2BCE) IN CSECT(I4802 ) LENGTH(4) 69 PID oie ae por aston copay soulr as CSECT (14S 02 EeNGEEC) 
1080 FTWO ADDRESS. HEX LCCATION(QQ002EC4) IN CSECT(I4802 ) LENGTH(2) 80 51 82 &3 84 85 86 87 88 
1074 89 90 91 92 93 94 95 96 97 
1027 FTO ADDRESS. HEX LOCATION (00002856) IN CSECT(I4802 ) LENGTH (4) 98 $9 100 101 102 103 104 105 106 
765 107 108 109 110 111 112 1772 
1050 FT1 ADDRESS. HEX LCCATION(QO0Q2E7A) IN CSECT(I4802 ) LENGTH (4) 1807 PIDMSG10 Pe Eee HEX VALUE (OOOQF1FQ) 
1073 FT2 ADDRESS. HEX LOCATION(OO002EA0) IN CSECT(I4802 ) LENGTH (4) 585 PREP Gop HEX VALUE (0000000C) 
4 30 F00051 ADDRESS. HEX LOCATION(0000258E) IN CSECT(I4802 ) LENGTH(1) 1291 RDDCB ADDRESS. HEX ei hageaber ty tue) tea IN CSECT(I4802 ) LENGTH(2) 
; 355 732 896 897 8 89 922 941 948 
4 36 F00058 ADDRESS. HEX LOCATION(000025DA) IN CSECT(I4802 ) LENGTH(1) 1394 1397 
370 896 KDE ADDRESS. HEX LOCATION(000029F6) IN CSECT(I4802 ) LENGTH(6) 
442 F00064 ADDRESS. HEX LOCATION(OO0025FA) IN CSECT(I4802 ) LENGTH(1) 959 
388 960 RDF 1 ADDRESS. HEX LOCATION(OOOO2ALC) IN CSECT(14802 ) LENGTH(6) 
448 F00070 ADDRESS. HEX LCCATION(0000261A) IN CSFCT(I4802 ) LENGTH(1) 956 
} 406 590 RELSD ABSOLUTE. HEX VALUE (00000017) 
45z FO00074 ADDRESS. HEX LOCATION (00002646) IN CSECT(I4802 ) LENGTH(1) 1782 
409 595 REQSD ABSOLUTE. HEX VALUE (00000016) 
759 GO ADDRESS. HEX LCCATION(00002802) IN CSECT(I4802 ) LENGTH(6) ; 1715 
754 1313 REVR ADDRESS. HEX LOCATICN(00002D60) IN CSECT(I4802 ) LENGTH (2) 
765 G1 ADDRESS. HEX LOCATION(0000281A) IN CSECT(I4802 ) LENGTH(A4) 755 
787 592 RICB ABSOLUTE. HEX VALUE (00000C613) 
1812 HEBLK ADDRESS. HEX LOCATION(000030CE) IN CSECT(I4802 ) LENGTH(2) 1784 
; 1756 1235 RS DCB ADDRESS. HEX LOCATION(O0Q0O2CEC) IN CSECT(I4802 ) LENGTH(2) 
1314 HHRR ADDRESS. HEX LOCATION(00002D62) IN CSECT(I4802 +) LENGTH(2) 798 1132 388 
873 880 886 1305 SAVE ADDRESS. HEX LOCATION(00002D50) IN CSECT(I4802 ) LENGTH(2) 
599 TOE ABSOLUTE. HEX VALUL(0000001A) : 771 773 
1757 1337 SAVR3 ADDRESS. HEX LOCATION(OQ002D9C) IN CSECT(I4802 ) LENGTH (2) 
575 IDLE ABSOLUTE. HEX VALUE(00000002) 912 918 = =925 
1502 1338 SAVR5 ADDRESS. HEX LOCATION(00002D9E) IN CSECT(I4802 ) LENGTH (2) 
506 IN ABSOLUTE. HEX VALUE (00000023) : 913 926 
1488 1500 1619 531 SC TID ADDRESS. HEX ri tideahar ic fale ak IN CSECT (14802 , LENGTH (2) 
1679 INTBL ADDRESS. HEX LCCATION(00002F12) IN CSECT (14802 ) LENGTH (2) 771 773 804 878 879 84 885 898 8 
1718 1137) 1139 «17420» «114300 «11510 1154 «©1242 1389 139 
1576 INTER ADDRESS. HEX LOCATION(QOQOO2E7A) IN CSECT(I4802 +) LENGTH(2) 1780 
1681 1539 SIDE ADDRESS. HEX LOCATION ¢00002DA0} IN CSECT(I4802 ) LENGTH(2) 
1585 INTES ADDRESS. HEX LOCATION (00002E92) IN CSECT(I4802 ) LENGTH(2) 745 786 = =©1030 = 61053) ~=610%76 ~=—1099 
1580 1246 SK DCL ADDRESS. HEX LOCATION(OQO0O2CFC) IN CSECT(I4802 ) LENGTH (2) 
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755 
583 
104 
557 
1165 
1185 
1175 
1340 
95 
92 
98 


555 
74 
75 

843 

841 

839 

828 

837 

&30 

835 


826 
818 
822 
820 
816 
814 
812 
810 
808 
564 
716 
1280 


1005 
1006 
1008 
1318 
1269 
869 
870 
507 
505 
1466 
1647 
1654 
1471 
1656 
1665 
1540 
1475 
1488 
1500 
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WRITE TEST 


NAME 


SKREV 
START 
SUPSTAT 
SVCAL 
TABOO 
TAB10 
TAB20 
TRK 
TUBUFF 
TUMSGWTR 
TURESUL 


TURIN 
TUSTATUS 
TUWORK 
TO2ZA 
TO2B 
TO2C 

TO 2D 
TO2E 

TO 2EE 

TO 2EK 


TO 2F 
TO 2H 
TO 2d 
TO 2K 
TO2L 
TO2N 
TO2P 
TO 20 
TOZR 
T3C02 
T4802 
VRDCB 


WB 
WB1 
WB2 
WDATA 
WRDCB 
WRRD 
WRRD2 
XE 

XI 
XIO 
XIOCK 
XIOCO 
XIOCS 
XIOCV 
XTOCX 
XIOER 
XIO1 
XIO2 
X108 
XTRUL 


P/N= 1635072 


CRCSS~RKEFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


741 #748 #749 +755 756 £9759 
781 #791 92 793 1382 
ADDRESS. HEX LOCATION (000027EE) IN 
ABSOLUTE. HEX VALUE (0000000) 
ADDRESS. HEX LOCATION(000019C4) IN 
ADDRESS. HEX LOCATION(0000274A) IN 
1714 1780 1781 
ADDRESS. HEX LOCATION (00002C80) IN 
ADDRESS. HEX LOCATION(00002CA8) IN 
ADDRESS. HEX LOCATION(00002C94) IN 
ADDRESS. HEX LOCATION (00002DA2) I 
752... 758 1029. 1052 a 
ADDRESS. HEX LOCATION (000016C2) IN 
728 907 10 
ADDRESS. HEX LOCATION (000018BA) IN 
“ ADDRESS. HEX LOCATION (000018C8) IN 
722..~«772 24. 725 726 08 
816 81 20 822 824 826 
832 83 34 835 &837 #839 
845 84 47 
ADDRESS. HEX LOCATION (00002746) IW 
ADDRESS. HEX LCCATLON(00001818) IN 
ADDRESS. HEX LOCATION (0000181A) IN 
1759 1814 
ADDRESS. HEX LOCATION (00002950) IN 
ADDRESS. HEX LOCATION (00002948) IN 
764 785 97 
ADDRESS. HEX LOCATION (00002940) IN 
{ABDRESS. HEX LOCATION (00002914) IN 
ADDRESS. HEX LOCATION (00002938) IN 
ADDRESS. HEX LOCATION (0000291C) IN 
ADDRESS, HEX LOCATION (00002930) I 
737.76 83. 795 800 89 
1129. 1134 1147 
ADDRESS. HEX LOCATION (0000290C) IN 
ADDRESS. HEX LOCATION (000028EC) IW 
ADDRESS. HEX LCCATION(000028FC) IN 
ADDRESS. HEX LOCATION(000028F4) IN 
895 1149 
ADDRESS. HEX LOCATION(000026E4) IN 
ADDRESS. HEX LOCATION (000028DC) IN 
ADDRESS. HEX LCCATION(0Q0026L4) IN 
ADDRESS, _HEX LOCATION (000028CC) IN 
ADDRESS. HEX LCCATION(000028C4) IN 
ADDRESS. HEX LOCATION (0000274E) IN 
ADDRESS. HEX LCCATION (00002756) IN 
ADDRESS. HEX LOCATION(00002D2C) 1 
730 881 883 884 4885 886 
1143. 1144 1145 1400 
ADDRESS. HEX LOCATION (00002B3C) IN 
995 1001 
ADDRESS. HEX LOCATION (00002B42) IN 
ADDRESS. HEX LCCATION(00002E4A) IN 
ADDRESS. HEX LOCATION (00002D6a) IN 
ADDRESS. HEX LCCATION(00002D1C) IN 
7129. 877 +878 879. 880 81 
ADDRESS. HEX LOCATION(00002972) IN 
767 770 ~~«77 
ADDRESS. HEX LOCATION (00002976) IN 
ABSOLUTE. HEX VALUE (00000024) 
1585 1647 
ABSOLUTE. HEX VALUE(00000022) 
1491 1632 
ADDRESS. HEX LOCATION (00002208) IN 
1383 1386 1391 1398 1401 1404 
ADDRESS. HEX LOCATION (00002ED0) 
ADDRESS. HEX LOCATION (00002EE2) IN 
ADDRESS. HEX LCCATION(00002E12) IN 
ADDRESS. HEX LOCATION (00002EL6) IN 
ADDRESS. HEX LCCATION(00002F00) IN 
ADDRESS. HEX LOCATION (00002E6E) IN 
ADDRESS. HEX LOCATION (00002E22) IN 
1410 1467 
ADDRESS. HEX LOCATION(00002E48) IN 
;ABDRESS. HEX LOCATION (00002ESC) IN 
ABSOLUTE, HEX VALUE (00000001) 
373-391 


760 779 
CSECT (14802 


CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 


N CSECT (14802 


CSECT (14802 
CSECT (14802 
CSECT (14802 
nae 
841 843 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 


N CSECT (14802 
893 902 


CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 


N CSECT (14802 
687 1141 


CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
882 939 
CSECT (14802 
CSECT(14802 


SECT (14802 
SECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 
CSECT (14802 


CSECT (14802 


C 
1 
C 


=_ 
oo 


14 


EC=578757 
COPYRIGHT IBM CORP 1976 


780 
) LENGTH (6) 


LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


CMC 
——S— errr eee le 
eat 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 


WO 
—_ 
Sa) 


LENGTH (6) 
LENGTH (6) 
LENGTH {6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 


NO 


LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 

ghENGTE (2) 

) LENGTH (4) 


) LENGTH (6) 


o~ en? —~ ws — yeaa — Cd —_ —— Sed — a —_ ca ——_ eas 


LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (6) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
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DECLARED NAME 
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CROSS~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 
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1309 XXX BOE RES eee rooe ta or wu couen fo: IN CSECT (14802 ) LENGTH (2) 
933 ZER ea HEX LOCATION(QOO0O02A82) IN CSECT (14802 ) LENGTH (4) 
1311 ZEROU ADDRESS. HEX Taga CY adie de OT CSECT (14802 ) LENGTH (2) 


741 748 749 756 
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